精彩编程与编程技巧-利用VB动态改变Windows显示模式的两种方法...资源-CSDN文库

需积分: 9 178 浏览量 2009-10-10 17:53:45 上传评论收藏 6KB TXT 举报

资源推荐

资源详情

资源评论

利用VB动态改变Windows显示模式的两种方法

　　在Windows系统中，系统提供了用于动态改变屏幕分辨率和显示颜色数的API函数。在这篇文章中，我将介绍使用两种方法改变Windows的显示模式。
　　要改变显示模式，首先要获得显示系统支持的显示模式。显示系统支持的所有的显示模式是利用API函数EnumDisplaySettings获得的。然后有两种方法切换显示模式，一种是利用Windows API函数ChangeDisplaySettings另外一种方法是利用Windows附带的一个QuickRES库，通过调用QuickRES库实现显示模式的切换。
　　首先在VB中建立一个工程文件，然后在Form1中加入一个ListBox控件和两个CommandButton控件，然后在Form1的代码窗口中加入以下代码：
　　Option Explicit
　　Private Type RECT
　　 Left As Long
　　 Top As Long
　　 Right As Long
　　 Bottom As Long
　　End Type
　　Private Declare Function ChangeDisplaySettings Lib “user32" Alias “ChangeDisplaySettingsA" _
　　(lpDevMode As Any, ByVal dwflags As Long) As Long
　　Private Declare Function EnumDisplaySettings Lib“user32" Alias“EnumDisplaySettingsA" _
　　(ByVal lpszDeviceName As String, ByVal iModeNum As Long, lpDevMode As Any) As Long
　　Private Declare Function SendMessageByLong＆ Lib“user32" Alias“SendMessageA" _
　　(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
　　Private Declare Function InvalidateRect Lib “user32" (ByVal hwnd As Long, lprect As Any, _
　　 ByVal bErase As Long) As Long
　　Private Declare Function PostMessage Lib “user32" Alias “PostMessageA" (ByVal hwnd As Long, _
　　ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
　　Private Type DEVMODE
　　dmDeviceName As String ＊ 32
　　dmSpecVersion As Integer
　　dmDriverVersion As Integer
　　dmSize As Integer
　　dmDriverExtra As Integer
　　dmFields As Long
　　dmOrientation As Integer