vb 取得color的象“&H8000000F&”这样的值？

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:10:34
设置了控件的backcolor值为vbRed，我想知道它此时的值是多少，这个值是指的象“&H8000000F&”这样形式的。用什么办法获取到这个值？

Text1.BackColor = vbRed
MsgBox "&H" & Right(String(8, "0") & Hex(Text1.BackColor), 8) & "&"

颜色值以80开头的是Windows系统的预定义颜色，比如标题栏颜色、按钮背景色等等，是随桌面主题或外观的设置而定的。以00开头的则是真实颜色，后六位就是这个颜色RGB的十六进制值。

Private Sub Command1_Click()
Dim S As Long, G As Long, nStr As String
S = vbRed

nStr = Hex(S)
G = 6 - Len(nStr)
If G > 0 Then nStr = String(G, "0") & nStr
MsgBox "&H" & nStr & "&"
End Sub