-
VB获取颜色色深是多少位,一般XP系统是16位和32位,vista和Windows7没注意,若需要此方面的技巧,可参考下本代码:
VERSION 5.00 Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "获取当前显示器颜色值" ClientHeight = 1125 ClientLeft = 1125 ClientTop = 1500 ClientWidth = 3270 Icon = "Form1.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 1125 ScaleWidth = 3270 StartUpPosition = 2 '屏幕中心 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long Private Const BITSPIXEL As Long = 12 Private Sub Form_Load() MsgBox "当前显示器颜色质量" & GetDeviceCaps(hDC, BITSPIXEL) & " 位" End Sub
VB获取颜色色深位数
最新推荐文章于 2024-03-27 10:00:00 发布