查看完整版本: 如何设定屏幕颜色数

如何设定屏幕颜色数

　　如何设定屏幕颜色数

　

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

注：
DevM.dmBitsPerPel 便是设定颜色数，其实应说每个Pixel要多少Bits来显示

4   --> 16色
8   --> 256色
16   --> 65536色      以此类推

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_BITSPERPEL =