VB 屏幕分辨率与刷新率的修改和查看

来源：百度知道 编辑：UC知道 时间：2024/05/25 20:00:26
设置屏幕分辨率与刷新率
打开自己做好的软件后
先获取自己的分辨率于刷新率
Text1.Text=自己的分辨率
Text2.Text=自己的刷新率
Text3.Text=自己的颜色
然后单击Command之后
设置屏幕分辨率为Text4.Text
设置屏幕刷新率为Text5.Text
设置屏幕颜色为Text6.Text
注意：
1、不能重启后设置成功。
2、最好有解释，因为我是新手（没有也无所谓）。

在窗体上画一个按钮和四个文本框，运行如下代码：启动时，显示相应数据。修改后，单击按钮改变设置。
Option Explicit
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
Private Const CCDEVICENAME As Long = 32
Private Const CCFORMNAME As Long = 32

Private Const DM_BITSPERPEL As Long = &H40000
Private Const DM_PELSWIDTH As Long = &H80000
Private Const DM_PELSHEIGHT As Long = &H100000
Private Const DM_DISPLAYFLAGS As Long = &H200000
Private Const DM_DISPLAYFREQUENCY = &H400000

Private Const CDS_FORCE As Long = &H80000000

Private Const BITSPIXEL As Long = 12
Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10
Private Const VREFRESH = 116

Private Type DEVMODE
dmDeviceName As String * CCDEVICE