轻松完成VB.NET变更显示器分辨率

VB.NET中的各种特点极大的吸引了开发人员的眼球。当我们想要利用这款语言进行移动设备的操作时，将会发现其应用方式是非常简单的。那么我们就一起来看看VB.NET变更显示器分辨率的相关操作。#t#

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

下面，我们就尝试一下在VB.NET变更显示器分辨率中，使用这两个API函数。

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

 
 
   
  
  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函数实现VB.NET变更显示器分辨率

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

调用API函数

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

定义结构进行VB.NET变更显示器分辨率的操作

 
 
   
  
  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)     
  
  ii = 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

VB.NET变更显示器分辨率的程序运行后，点击设置分辩率，将会把显示器分辨率改为1024x768。

文章标题：轻松完成VB.NET变更显示器分辨率
当前网址：http://www.csdahua.cn/qtweb/news38/414138.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容