查看: 43  |  回复: 0
  VB6 得到设备上下文使用的背景颜色
楼主
发表于 2024年10月22日 20:59

新建From1(窗体),代码:

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_SCROLLBAR = 0
Const COLOR_BACKGROUND = 1
Const COLOR_ACTIVECAPTION = 2
Const COLOR_INACTIVECAPTION = 3
Const COLOR_MENU = 4
Const COLOR_WINDOW = 5
Const COLOR_WINDOWFRAME = 6
Const COLOR_MENUTEXT = 7
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Const COLOR_ACTIVEBORDER = 10
Const COLOR_INACTIVEBORDER = 11
Const COLOR_APPWORKSPACE = 12
Const COLOR_HIGHLIGHT = 13
Const COLOR_HIGHLIGHTTEXT = 14
Const COLOR_BTNFACE = 15
Const COLOR_BTNSHADOW = 16
Const COLOR_GRAYTEXT = 17
Const COLOR_BTNTEXT = 18
Const COLOR_INACTIVECAPTIONTEXT = 19
Const COLOR_BTNHIGHLIGHT = 20
Const COLOR_3DDKSHADOW = 21
Const COLOR_3DLIGHT = 22
Const COLOR_INFOTEXT = 23
Const COLOR_INFOBK = 24
Const COLOR_HOTLIGHT = 26
Const COLOR_GRADIENTACTIVECAPTION = 27
Const COLOR_GRADIENTINACTIVECAPTION = 28

Private Sub Form_Load()
    Debug.Print "Color of Scrollbar is " & Hex(GetSysColor(COLOR_SCROLLBAR))
    Debug.Print "Color of Background is " & Hex(GetSysColor(COLOR_BACKGROUND))
    Debug.Print "Color of Active Caption is " & Hex(GetSysColor(COLOR_ACTIVECAPTION))
    Debug.Print "Color of InActive Caption is " & Hex(GetSysColor(COLOR_INACTIVECAPTION))
End Sub

运行结果:

Color of Scrollbar is C8C8C8
Color of Background is 606848
Color of Active Caption is D1B499
Color of InActive Caption is DBCDBF


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com