全面剖析VB.NET调用API函数

学习VB.NET时，你可能会遇到VB.NET调用API函数问题，这里将介绍VB.NET调用API函数问题的解决方法，在这里拿出来和大家分享一下。

创新互联，为您提供重庆网站建设公司、重庆网站制作、网站营销推广、网站开发设计，对服务成都汽车玻璃修复等多个行业拥有丰富的网站建设及推广经验。创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏心悦目的作品。与客户共同发展进步，是我们永远的责任！

在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函数  
  
  
  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  
  
  
  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  
  
  
  '改变分辩率过程，参数一宽度，参数二高度  
  
  
  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临时文件
详细描述VB.NET PadLeft方法
VB.NET Shared变量经验总结
全面讲解VB.Net赋值语句
浅析VB.NET创建PPC客户端程序

网站栏目：全面剖析VB.NET调用API函数
文章源于：http://zsjierui.cn/article/copjsgs.html

网站建设知识

全面剖析VB.NET调用API函数

其他资讯