Dim dmDisplayFlags As Integer

        Dim dmDisplayFrequency As Integer

    End Structure

    ''''改变分辩率过程，参数一宽度，参数二高度

    Private Sub ChangeDisp(ByRef iWidth As Single, ByRef iHeight As Single)

        Dim blnWorked As Boolean

        Dim i As Integer

        Dim DevM As Form1.DEVMODE

        i = 0

        Do

            blnWorked = EnumDisplaySettings(0, i, DevM)

            i = i + 1

        Loop Until (blnWorked = False)

        With DevM

            .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT  Or DM_DISPLAYFREQUENCY

            .dmPelsWidth = iWidth

            .dmPelsHeight = iHeight

            ''''刷新频率为85

            .dmDisplayFrequency = 85       

        End With

        Call ChangeDisplaySettings(DevM, 0)

    End Sub

    Private Sub btnGetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDisp.Click

        Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width

        Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height

        MsgBox("您的显示器分辨率是" & X & " X " & Y)

    End Sub

    Private Sub btnSetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetDisp.Click

        If MsgBox("您确认要将显示器分辨率改为1024x768吗？", MsgBoxStyle.OKCancel, "系统消息") = MsgBoxResult.OK Then

            ''''调用改变分辩率过程

            ChangeDisp(1024, 768)

        End If

    End Sub

程序运行如下图所示，点击设置分辩率，将会把显示器分辨率改为1024x768，刷新频率为85，是不是很简单？

上一页  [1] [2]