函数
用API函数取色后，如何将其分成RGB颜色？
问题：
用API函数取色后，是一个10进制的数值，如何将其分成RGB颜色？
方法一：
用 HEX 函数将数值转换为 16 进制，然后，每两个切分一下就可以得到 RGB 数值了
Function C10ToRGB_1(lngColor As Long) As String
Dim strR As String
Dim strG As String
Dim strB As String
strR = lngColor Mod 256
strG = lngColor \ 256 Mod 256
strB = lngColor \ 256 \ 256
C10ToRGB_1 = strR & "_" & strG & "_" & strB
End Function
Sub test1()
Debug.Print C10ToRGB_1(33023)
Debug.Print RGB(255, 128, 0)
End Sub
方法二：
【转载】
如果要将VB的颜色转换为COLORREF，需要使用OleTranslateColor函数，
用API函数取色后，如何将其分成RGB颜色？数据库教程
。例子：Private Declare Function OleTranslateColor Lib "olepro32.dll" _
(ByVal OLE_COLOR As Long, _
ByVal HPALETTE As Long, _
pccolorref As Long) As Long
Private Sub GetRBGFromOLEColour(ByVal dwOleColour As Long, r As Long, g As Long, b As Long)
'pass a hex colour, return the rgb components
Dim clrref As Long
'translate OLE color to valid color if passed
OleTranslateColor dwOleColour, 0, clrref
b = (clrref \ 65536) And &HFF
g = (clrref \ 256) And &HFF
r = clrref And &HFF
Text1(0).Text = dwOleColour
Text1(1).Text = clrref
End Sub
更完整的例子参考：http://www.mvps.org/vbnet/?code/system/oletranslatecolor.htm
方法三：
用 HEX 函数将数值转换为 16 进制，然后，每两个切分一下就可以得到 RGB 数值了
Sub test1()
Debug.Print C10ToRGB(33023)
Debug.Print RGB(255, 128, 0)
End Sub
Function C10ToRGB(lngA As Long) As String
Dim strR As String
Dim strG As String
Dim strB As String
Dim strHEX As String
strHEX = Right("00000" & Hex(lngA), 6)
'Debug.Print "B" & Mid(strHEX, 1, 2)
'Debug.Print "G" & Mid(strHEX, 3, 2)
'Debug.Print "R" & Mid(strHEX, 5, 2)
strB = C16To10(Mid(strHEX, 1, 2))
strG = C16To10(Mid(strHEX, 3, 2))
strR = C16To10(Mid(strHEX, 5, 2))
C10ToRGB = strR & "," & strG & "," & strB
'Debug.Print C10ToRGB
End Function
'以下函数将 16 进制数值转换为 10 进制数值
Private Function C16To10(strA As String) As Double
Dim a As Double
Dim b As String
Dim c As Double
Dim l As Integer
Dim i As Long
l = Len(strA)
For i = 1 To l
b = Mid(strA, i, 1)
Select Case b
Case "A"
b = 10
Case "B"
b = 11
Case "C"
b = 12
Case "D"
b = 13
Case "E"
b = 14
Case "F"
b = 15
End Select
c = c + b * 16 ^ (l - 1)
l = l - 1
Next
C16To10 = c
'Debug.Print C16To10
End Function
如何取色你可以参考本站
http://access911.net/index.asp?board=4&recordid=71FAB31E16DC