用API函数取色后，如何将其分成RGB颜色？

来源：互联网发布：磐厚资本知乎编辑：程序博客网时间：2024/06/13 00:44

用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函数。例子：
    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/index.html?code/system/oletranslatecolor.htm

方法三：

用 HEX 函数将数值转换为 16 进制，然后，每两个切分一下就可以得到 RGB 数值了

Sub test1()
    Debug.Print C10ToRGB(33023)1<script type="text/javascript"></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>