首页 /编程语言和算法/VB6/ASP
 VB6 利用API获得系统颜色
2023年5月6日 20:02

新建From1(窗体),新建Command1(按钮CommandButton),代码:

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 Command1_Click()
    MsgBox "Color of Scrollbar is " & Hex(GetSysColor(COLOR_SCROLLBAR)) & Chr(13) & _
           "Color of Background is " & Hex(GetSysColor(COLOR_BACKGROUND)) & Chr(13) & _
           "Color of Active Caption is " & Hex(GetSysColor(COLOR_ACTIVECAPTION)) & Chr(13) & _
           "Color of InActive Caption is " & Hex(GetSysColor(COLOR_INACTIVECAPTION))
End Sub


 
全部回复(0)
首页 | 电脑版 |