VB获取当前屏幕的颜色深度/色深，VB获取当前屏幕的颜色深度，VB获取当前屏幕的颜色色深，VB获取当前屏幕颜色深度/色深，VB获取当前屏幕颜色深度，VB获取当前屏幕颜色色深，VB获取屏幕颜色深度/色深，VB获取屏幕颜色深度，VB获取屏幕颜色色深，VB屏幕颜色深度/色深，VB屏幕颜色深度，VB屏幕颜色色深，VB屏幕深度/色深，VB屏幕深度，VB屏幕色深，VB深度/色深，VB深度，VB色深，VB GetDeviceCaps，VB BITSPIXEL = 12，VB "当前颜色深度:" & GetDeviceCaps(Me.hdc， BITSPIXEL) & "位"。

VB获取当前屏幕的颜色深度/色深：

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const BITSPIXEL = 12

MsgBox "当前颜色深度:" & GetDeviceCaps(Me.hdc, BITSPIXEL) & "位"