查看完整版本: 如何设定屏幕分辨率

如何设定屏幕分辨率

　　如何设定屏幕分辨率

　

　　原则上，只改这一次，下一次开机会还原，但如果需重开机，才会Update
Registry中的设定，并重开机。
如果要永久设定其设定值，请将
b = ChangeDisplaySettings(DevM, 0) 改成
b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

Option Explicit
** Declare Function EnumDisplaySettings Lib "user32" Alias _
   "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, _
   ByVal iModeNum As Long, lpDevMode As Any) As Long

** Declare Function ChangeDisplaySettings Lib "user32" Alias _
   "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
** Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
                 ByVal dwReserved As Long) As Long

Const EWX_REBOOT = 2          注释： 重开机
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH =