CSDN博客

img changechange

用API函数取色后,如何将其分成RGB颜色?

发表于2004/1/24 12:05:00  950人阅读

分类: 特有函数以及自定义函数、过程

用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)
    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

 

0 0

相关博文

我的热门文章

img
取 消
img