日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

學(xué)習VB.NET時，你可能會遇到VB.NET調(diào)用API函數(shù)問題，這里將介紹VB.NET調(diào)用API函數(shù)問題的解決方法，在這里拿出來和大家分享一下。

創(chuàng)新互聯(lián)，為您提供重慶網(wǎng)站建設(shè)公司、重慶網(wǎng)站制作、網(wǎng)站營銷推廣、網(wǎng)站開發(fā)設(shè)計，對服務(wù)成都汽車玻璃修復(fù)等多個行業(yè)擁有豐富的網(wǎng)站建設(shè)及推廣經(jīng)驗。創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司成立于2013年,提供專業(yè)網(wǎng)站制作報價服務(wù),我們深知市場的競爭激烈，認真對待每位客戶，為客戶提供賞心悅目的作品。 與客戶共同發(fā)展進步，是我們永遠的責任！

在VB.NET中，我們很容易獲得顯示器的分辯率，但是，要改變顯示器的分辯率就比較麻煩了。由于。net的類庫沒有將 enumdisplaysettings 和ChangeDisplaySettings這兩個API函數(shù)進行封裝，但是我們得調(diào)用它們函數(shù)，相對于VB6來說，VB.NET調(diào)用API函數(shù)是有一些小的改動！

下面，我們就嘗試一下VB.NET調(diào)用API函數(shù)。

新建一個項目，在form1上添加兩個按鈕，一個名為btngetdisp，將其text屬性設(shè)置為“得到分辯率”；另一個按鈕名為btnsetdisp，text屬性為“設(shè)置分辯率”。然后在代碼窗口里添加以下代碼：

 
 
 

  
  
  
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  
  
  
  
'調(diào)用API函數(shù)  
  
  
  
private Declare Function EnumDisplaySettings Lib "user32" Alias  
  
  
  
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer,  
  
  
  
ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean  
  
  
  
'調(diào)用api函數(shù)  
  
  
  
private Declare Function ChangeDisplaySettings Lib "user32" Alias  
  
  
  
"ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE,  
  
  
  
ByVal dwflags As Integer) As Integer  
  
  
  
'定義結(jié)構(gòu)  
  
  
  
private Structure DEVMODE  
  
  
  
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  
  
  
  
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  
  
  
  
'改變分辯率過程，參數(shù)一寬度，參數(shù)二高度  
  
  
  
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,  
  
  
  
"系統(tǒng)消息") = MsgBoxResult.OK Then  
  
  
  
'調(diào)用改變分辯率過程  
  
  
  
changedisp(1024, 768)  
  
  
  
end If  
  
  
  
end Sub 
 
 
 

【編輯推薦】

1. 簡單分析VB.NET臨時文件
2. 詳細描述VB.NET PadLeft方法
3. VB.NET Shared變量經(jīng)驗總結(jié)
4. 全面講解VB.Net賦值語句
5. 淺析VB.NET創(chuàng)建PPC客戶端程序

網(wǎng)站欄目：全面剖析VB.NET調(diào)用API函數(shù)
分享路徑：http://www.5511xx.com/article/copjsgs.html