Visual Basic > Graphics Games Programming sample source codes

Visual Basic Code > 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