在vb里怎样识别当前的显示分辩率和颜色.txt

VB技巧问答10000例 VB技巧问答10000例

当 前 显 示 分 辨 率 宽 为 Screen.Width / Screen.TwipsPerPixelX， 高 为 Screen.Height / Screen.TwipsPerPixelY。 
    欲 检 测 颜 色 数 ， 需 要 调 用 GetDeviceCaps函 数 。 首 先 ， 在 窗 体 的 声 明 部 分 增 加 如 下 内 容 ： 
    Const BITSPIXEL = 12 ' Number of bits per pixel 
    Const PLANES = 14 ' Number of planes 
    Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long 
    然 后 使 用 下 面 的 语 句 就 可 以 得 到 颜 色 数 ： 
    NumberOfColors = 2 ^ (GetDeviceCaps(Me.hdc, BITSPIXEL) * GetDeviceCaps(Me.hdc, PLANES)) 
<END>