在VB.NET中改变显示器的分辩率

原创 2003年12月01日 08:42:00

 

VB.NET中改变显示器的分辩率

 

微软MVP 李洪根

 

VB.NET中,我们很容易获得显示器的分辩率,但是,要改变显示器的分辩率就比较麻烦了。由于.NET的类库没有将EnumDisplaySettings ChangeDisplaySettings这两个API函数进行封装,但是我们得调用它们函数,相对于VB6来说,VB.NET调用API函数是有一些小的改动!

       下面,我们就尝试一下在VB.NET中,使用这两个API函数。

       新建一个项目,在Form1上添加两个按钮,一个名为btnGetDisp,将其Text属性设置为“得到分辩率”;另一个按钮名为btnSetDispText属性为“设置分辩率”。然后在代码窗口里添加以下代码:

 

    Private Const CCDEVICENAME As Short = 32

    Private Const CCFORMNAME As Short = 32

    Private Const DM_PELSWIDTH As Integer = &H80000

    Private Const DM_PELSHEIGHT As Integer = &H100000

    '刷新频率常量

    Private Const DM_DISPLAYFREQUENCY As Integer = &H400000

 

    '调用API函数

    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean

    '调用API函数

    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwflags As Integer) As Integer

 

    '定义结构

    Private Structure DEVMODE

        <VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String

        Dim dmSpecVersion As Short

        Dim dmDriverVersion As Short

        Dim dmSize As Short

        Dim dmDriverExtra As Short

        Dim dmFields As Integer

        Dim dmOrientation As Short

        Dim dmPaperSize As Short

        Dim dmPaperLength As Short

        Dim dmPaperWidth As Short

        Dim dmScale As Short

        Dim dmCopies As Short

        Dim dmDefaultSource As Short

        Dim dmPrintQuality As Short

        Dim dmColor As Short

        Dim dmDuplex As Short

        Dim dmYResolution As Short

        Dim dmTTOption As Short

        Dim dmCollate As Short

        <VBFixedString(CCFORMNAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String

        Dim dmUnusedPadding As Short

        Dim dmBitsPerPel As Short

        Dim dmPelsWidth As Integer

        Dim dmPelsHeight As Integer

        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是不是很简单?

在VB.NET中改变显示器的分辩率

转贴说明出处:ttp://www.microsoft.com/china/community/Column/28.mspx作者:李洪根在VB.NET中,我们很容易获得显示器的分辩率,但是,要改变显示器...
  • usersmj
  • usersmj
  • 2006年08月26日 15:33
  • 587

在VB.NET中改变显示器的分辩率

在VB.NET中,我们很容易获得显示器的分辩率,但是,要改变显示器的分辩率就比较麻烦了。由于.NET的类库没有将EnumDisplaySettings 和ChangeDisplaySettings这两...
  • go2newlife
  • go2newlife
  • 2008年01月10日 23:51
  • 334

CentOS显示器分辨率配置

因为CentOS在虚拟机安装默认只有800x600  还有一个更小的,忘了是多少了,   我的机器是1280x800,无此项,修改分辨率   操作步骤   系统》管理》显示》硬件》显示器类...
  • xiaotengyi2012
  • xiaotengyi2012
  • 2012年07月10日 08:04
  • 879

在VC中修改显示器的分辩率和色彩

 在VC中修改显示器的分辩率和色彩   在日常的程序开发中,有时我们想让自己编写的程序运行在显示器一定的分辨率和色彩数目下。如何让程序自动修改当前的显示器设置呢?这首先得从显示器的工作原理谈起。  一...
  • gnuljf
  • gnuljf
  • 2001年05月12日 20:54
  • 1324

显示器的关闭与打开编程

(1).SendMessage(Application->Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);//关闭显示器SendMessage(Application....
  • johnny_83
  • johnny_83
  • 2007年07月22日 09:45
  • 3063

双显示器分辨率不同的问题

两个显示器,一个接vga口,一个接hdmi扣,由于vga口分辨率只有1050p,所以导致在vga口显示器上显示图像超出边界,hdmi口正常显示,遇到这种情况,只能使用其中一个接口,不可两者同时使用....
  • jsship
  • jsship
  • 2016年12月12日 10:06
  • 452

解决qt在相同分辨率不同宽度的屏幕下字体显示位置不一样的问题

使用qlabel给Qwidget做标题,在分辨率为1920*1080的笔记本显示器上看到label标题在窗口中居中,换了一台分辨率也是1920*1080但更宽和更大的台式机显示器后,此label上的标...
  • qqwangfan
  • qqwangfan
  • 2017年06月05日 09:59
  • 1106

VB.NET 实现DataGridView CheckBox列状态变更触发事件,获取其状态值

首先,触发的事件有CurrentCellDirtyStateChanged和CellValueChanged。 以下具体代码分析:  '''     ''' 提交點擊事件     ''' ...
  • keith_xiao
  • keith_xiao
  • 2016年01月15日 15:18
  • 921

VB.net获取屏幕分辨率

'获取屏幕分辨率 Dim x, y As Long x = Screen.PrimaryScreen.Bounds.Width.ToString y...
  • sxycgxj
  • sxycgxj
  • 2012年05月25日 10:28
  • 2961

win7下双显示器的顺序调整

    写代码的人,难免要参考别人的代码,使用双显示器显得十分必要。今天在调整显示器的时候发现,操作系统识别的显示器是先dvi接口,然后才是VGA(我的显卡一个div接口,一个VGA接口)。问题出现了...
  • lover6
  • lover6
  • 2010年03月21日 23:23
  • 7913
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB.NET中改变显示器的分辩率
举报原因:
原因补充:

(最多只允许输入30个字)