在VB.NET中改变显示器的分辨率 开发者在线 Builder.com.cn 更新时间:2007-09-10作者：.NET文档 来源:.NET文档　 本文关键词： VB.NET 显示器 分辨率 在vb.net中，我们很容易获得显示器的分辩率，但是，要改变显示器的分辩率就比较麻烦了。由于.net的类库没有将enumdisplaysettings 和ChangeDisplaySettings这两个API函数进行封装，但是我们得调用它们函数，相对于VB6来说，VB.NET调用API函数是有一些小的改动！ 下面，我们就尝试一下在vb.net中，使用这两个api函数。 新建一个项目，在form1上添加两个按钮，一个名为btngetdisp，将其text属性设置为“得到分辩率”；另一个按钮名为btnsetdisp，text属性为“设置分辩率”。然后在代码窗口里添加以下代码： private Const CCDEVICENAME As Short = 32private Const CCFORMNAME As Short = 32private Const DM_PELSWIDTH As Integer = &H80000private 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 DEVMODEPublic dmDeviceName As Stringdim dmSpecVersion As Shortdim dmDriverVersion As Shortdim dmSize As Shortdim dmDriverExtra As Shortdim dmFields As Integerdim dmOrientation As Shortdim dmPaperSize As Shortdim dmPaperLength As Shortdim dmPaperWidth As Shortdim dmScale As Shortdim dmCopies As Shortdim dmDefaultSource As Shortdim dmPrintQuality As Shortdim dmColor As Shortdim dmDuplex As Shortdim dmYResolution As Shortdim dmTTOption As Shortdim dmCollate As ShortPublic dmFormName As Stringdim dmUnusedPadding As Shortdim dmBitsPerPel As Shortdim dmPelsWidth As Integerdim dmPelsHeight As Integerdim dmDisplayFlags As Integerdim dmDisplayFrequency As Integerend Structure'改变分辩率过程，参数一宽度，参数二高度private Sub ChangeDisp(ByRef iWidth As Single, ByRef iHeight As Single)dim blnWorked As Booleandim i As Integerdim DevM As Form1.DEVMODEi = 0doblnworked = EnumDisplaySettings(0, i, DevM)i = i + 1loop Until (blnWorked = False)with DevM.dmfields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY.dmpelswidth = iWidth.dmpelsheight = iHeight'刷新频率为85.dmdisplayfrequency = 85 end Withcall ChangeDisplaySettings(DevM, 0)end Subprivate Sub btnGetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDisp.Clickdim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Widthdim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Heightmsgbox("您的显示器分辨率是" & X & " X " & Y)end Subprivate Sub btnSetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetDisp.Clickif MsgBox("您确认要将显示器分辨率改为1024x768吗？", MsgBoxStyle.OKCancel, "系统消息") = MsgBoxResult.OK Then'调用改变分辩率过程changedisp(1024, 768)end Ifend Sub 程序运行如下图所示，点击设置分辩率，将会把显示器分辨率改为1024x768，刷新频率为85，是不是很简单？ 查看本文来源

评论