VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > temp > python入门教程 >

  • 使用VB.NET实现改变显示器的分辨率实例

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

下面，我们就尝试一下在vb.net中，使用这两个api函数。

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

Code:
  1. private Const CCDEVICENAME As Short = 32   
  2. private Const CCFORMNAME As Short = 32   
  3. private Const DM_PELSWIDTH As Integer = &H80000   
  4. private Const DM_PELSHEIGHT As Integer = &H100000   
  5. '刷新频率常量   
  6. private Const DM_DISPLAYFREQUENCY As Integer = &H400000   
  7. '调用API函数   
  8. private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean  
  9. '调用api函数   
  10. private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwflags As Integer) As Integer  
  11. '定义结构   
  12. private Structure DEVMODE   
  13. Public dmDeviceName As String  
  14. dim dmSpecVersion As Short  
  15. dim dmDriverVersion As Short  
  16. dim dmSize As Short  
  17. dim dmDriverExtra As Short  
  18. dim dmFields As Integer  
  19. dim dmOrientation As Short  
  20. dim dmPaperSize As Short  
  21. dim dmPaperLength As Short  
  22. dim dmPaperWidth As Short  
  23. dim dmScale As Shortdim dmCopies As Shortdim dmDefaultSource As Shortdim dmPrintQuality As Shortdim dmColor As Short  
  24. dim dmDuplex As Shortdim dmYResolution As Shortdim dmTTOption As Shortdim dmCollate As Short  
  25. Public dmFormName As String  
  26. dim dmUnusedPadding As Short  
  27. dim dmBitsPerPel As Short  
  28. dim dmPelsWidth As Integer  
  29. dim dmPelsHeight As Integer  
  30. dim dmDisplayFlags As Integerdim dmDisplayFrequency As Integerend Structure  
  31. '改变分辩率过程，参数一宽度，参数二高度   
  32. private Sub ChangeDisp(ByRef iWidth As Single, ByRef iHeight As Single)   
  33. dim blnWorked As Boolean  
  34. dim i As Integer  
  35. dim DevM As Form1.DEVMODE   
  36. i = 0   
  37. do   
  38. blnworked = EnumDisplaySettings(0, i, DevM)   
  39. i = i + 1   
  40. loop Until (blnWorked = False)   
  41. with DevM   
  42. .dmfields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY   
  43. .dmpelswidth = iWidth   
  44. .dmpelsheight = iHeight   
  45. '刷新频率为85   
  46. .dmdisplayfrequency = 85    
  47. end With  
  48. call ChangeDisplaySettings(DevM, 0)   
  49. end Sub  
  50. private Sub btnGetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetDisp.Click   
  51. dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width   
  52. dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height   
  53. msgbox("您的显示器分辨率是" & X & " X " & Y)   
  54. end Sub  
  55. private Sub btnSetDisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetDisp.Click   
  56. if MsgBox("您确认要将显示器分辨率改为1024x768吗？", MsgBoxStyle.OKCancel, "系统消息") = MsgBoxResult.OK Then'调用改变分辩率过程   
  57. changedisp(1024, 768)   
  58. end If  
  59. end Sub  

程序运行如下图所示，点击设置分辩率，将会把显示器分辨率改为1024x768，刷新频率为85，是不是很简单？
 

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gujiawei_27/article/details/6469635

相关教程