使用VB.NET開發的程序員知道很容易獲得顯示器的分辯率，但是，要改變VB.NET分辯率是一件很讓人頭疼的事。由于VB.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函數  
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)  
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，刷新頻率為85，是不是很簡單？

【編輯推薦】

1. 實例講述VB.NET使用Log4Net
2. 三分鐘學會VB.NET轉換形態
3. VB.NET獲取硬盤信息四大法寶
4. 講述VB.NET調用Excel的好處
5. 簡單例子概述VB.NET新窗體