Visual Basic > Graphics Games Programming

RGB Long Splitter Sub

RGB Long Splitter Sub

Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Public Sub LongToRGB(ByVal RGBColor As Long, ByRef RColor As Integer, _
 ByRef GColor As Integer, ByRef BColor As Integer)
 
    HexRGB = Hex(RGBColor)
    If Left$(HexRGB, 2) = "80" And Len(HexRGB) > 6 Then HexRGB = _
     Hex(GetSysColor(Val("&H" &Right$(HexRGB, 2))))
    t = String$(6 - Len(HexRGB), Asc("0")) & HexRGB
    RColor = Val("&H" & Mid$(t, 5, 2))
    GColor = Val("&H" & Mid$(t, 3, 2))
    BColor = Val("&H" & Mid$(t, 1, 2))
 
End Sub