谁会用VB写个快速切换分辨率的程序？

来源：百度知道 编辑：UC知道 时间：2024/05/22 19:05:24
要求是这样的：需要写个VB程序，能快速切换到 1024*768 分辨率 颜色质量是 中16位（这里是关键）屏幕刷新率是 85 的。

求高手帮忙，谢谢 ！

下面是我前几天编写的，玩游戏时要经常切换颜色位数(16位和32位)。在窗体上放一个按钮，两个单选框用于选择位数。
Option Explicit
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32
Private Const ENUM_CURRENT_SETTINGS = 1
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
d