当前位置:我的异常网» VB»，win7上设置颜色黑屏
，win7上设置颜色黑屏
网友分享于：-12-16浏览：7次
求助，win7下设置颜色黑屏
网上找的设置显示颜色等，现在只设置到16位色，xp及vista下通过，win7下黑屏、重启，求win7如何通过？
注：调用change()即设置至16位,返回1成功，0失败
-------------------------------------------------------------------------
'设置屏幕分辨率、颜色位数、刷新率
'
'//
'//griefforyou收集整理
'//
'
PublicDeclareFunctionGetDeviceCapsLib"gdi32"(ByValhdcAsLong,ByValnIndexAsLong)AsLong
PrivateDeclareFunctionChangeDisplaySettingsLib"user32"Alias"ChangeDisplaySettingsA"(lpDevModeAsAny,ByValdwFlagsAsLong)AsLong
PrivateConstCCDEVICENAMEAsLong=32
PrivateConstCCFORMNAMEAsLong=32
PrivateConstDM_BITSPERPELAsLong=&H40000
PrivateConstDM_PELSWIDTHAsLong=&H80000
PrivateConstDM_PELSHEIGHTAsLong=&H100000
PrivateConstDM_DISPLAYFLAGSAsLong=&H200000
PrivateConstDM_DISPLAYFREQUENCY=&H400000
PrivateConstCDS_FORCEAsLong=&H80000000
PrivateConstBITSPIXELAsLong=12
PrivateConstHORZRESAsLong=8
PrivateConstVERTRESAsLong=10
PrivateConstVREFRESH=116
PrivateTypeDEVMODE
dmDeviceNameAsString*CCDEVICENAME
dmSpecVersionAsInteger
dmDriverVersionAsInteger
dmSizeAsInteger
dmDriverExtraAsInteger
dmFieldsAsLong
dmOrientationAsInteger
dmPaperSizeAsInteger
dmPaperLengthAsInteger
dmPaperWidthAsInteger
dmScaleAsInteger
dmCopiesAsInteger
dmDefaultSourceAsInteger
dmPrintQualityAsInteger
dmColorAsInteger
dmDuplexAsInteger
dmYResolutionAsInteger
dmTTOptionAsInteger
dmCollateAsInteger
dmFormNameAsString*CCFORMNAME
dmUnusedPaddingAsInteger
dmBitsPerPelAsInteger
dmPelsWidthAsLong
dmPelsHeightAsLong
dmDisplayFlagsAsLong
文章评论
