VB中利用API函数实现屏幕颜色数设定.docVIP

VB中利用API函数实现屏幕颜色数设定 　　原则上，只改这一次，下一次开机会还原，但如果需重开机，才会Update Registry中的设定，并重开机。　　如果要永久设定其设定值，请将b = ChangeDisplaySettings(DevM, 0)　　改成b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) 　　注：　　DevM.dmBitsPerPel 便是设定颜色数，其实应说每个Pixel要多少Bits来显示　　4 -- 16色　　8 -- 256色　　16 -- 65536色 以此类推 Option ExplicitPrivate Declare Function EnumDisplaySettings Lib user32 Alias _EnumDisplaySettingsA (ByVal lpszDeviceName As Long, _ByVal iModeNum As Long, lpDevMode As Any) As LongPrivate Declare Function ChangeDisplaySettings Lib user32 Alias _ChangeDisplaySettingsA (lpDevMode As Any, ByVal dwflags As Long) As LongPrivate Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Long, _ByVal dwReserved As Long) As LongConst EWX_REBOOT = 2 ’ 重开机Const CCDEVICENAME = 32Const CCFORMNAME = 32Const DM_BITSPERPEL = H40000Const DISP_CHANGE_SUCCESSFUL = 0Const DISP_CHANGE_RESTART = 1Const CDS_UPDATEREGISTRY = 1Private Type DEVMODEdmDeviceName As String * CCDEVICENAMEdmSpecVersion As IntegerdmDriverVersion As IntegerdmSize As IntegerdmDriverExtra As IntegerdmFields As LongdmOrientation As IntegerdmPaperSize As IntegerdmPaperLength As IntegerdmPaperWidth As IntegerdmScale As IntegerdmCopies As IntegerdmDefaultSource As IntegerdmPrintQuality As IntegerdmColor As IntegerdmDuplex As IntegerdmYResolution As IntegerdmTTOption As IntegerdmCollate As IntegerdmFormName As String * CCFORMNAMEdmUnusedPadding As IntegerdmBitsPerPel As IntegerdmPelsWidth As LongdmPelsHeight As LongdmDisplayFlags As LongdmDisplayFrequency As LongEnd TypePrivate DevM As DEVMODEPrivate Sub Command1_Click()Dim a As BooleanDim i As LongDim b As LongDim ans As Longa = EnumDisplaySettings(0, 0, DevM) ’Initial SettingDevM.dmBitsPerPel = 8 ’设定成256色DevM.dmFields = DM_BITSPERPELb = ChangeDisplaySettings(DevM, 0)If b = DISP_CHANGE_RESTART Then　ans = MsgBox(要重开机设定才能完成，重开？, vbOKCancel)　If ans = 1 Then　　b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)　　Call ExitWind