當前位置:我的異常網? VB???，win7上設置顏色黑屏

，win7上設置顏色黑屏

www.myexceptions.net??網友分享于：2013-12-16??瀏覽：7次

求助，win7下設置顏色黑屏

網上找的設置顯示顏色等，現在只設置到16位色，xp及vista下通過，win7下黑屏、重啟，求win7如何通過？

注：調用change()即設置至16位,返回1成功，0失敗

-------------------------------------------------------------------------

'設置屏幕分辨率、顏色位數、刷新率

'

'//

'//griefforyou收集整理

'//

'

Public?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?*?CCDEVICENAME

dmSpecVersion?????As?Integer

dmDriverVersion???As?Integer

dmSize????????????As?Integer

dmDriverExtra?????As?Integer

dmFields??????????As?Long

dmOrientation?????As?Integer

dmPaperSize???????As?Integer

dmPaperLength?????As?Integer

dmPaperWidth??????As?Integer

dmScale???????????As?Integer

dmCopies??????????As?Integer

dmDefaultSource???As?Integer

dmPrintQuality????As?Integer

dmColor???????????As?Integer

dmDuplex??????????As?Integer

dmYResolution?????As?Integer

dmTTOption????????As?Integer

dmCollate?????????As?Integer

dmFormName????????As?String?*?CCFORMNAME

dmUnusedPadding???As?Integer

dmBitsPerPel??????As?Integer

dmPelsWidth???????As?Long

dmPelsHeight??????As?Long

dmDisplayFlags????As?Long

文章評論

總結

以上是生活随笔為你收集整理的vb编写脚本能让计算机屏幕黑屏,，win7上设置颜色黑屏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。