Function to Convert Long to RGB value
Function to Convert Long to RGB value
Rate Function to Convert Long to RGB value
(1(1 Vote))
Dim bRed As Long
Dim bGreen As Long
Dim bBlue As Long
bBlue = lColor \ 65536
bGreen = (lColor - (bBlue * 65536)) \ 256
bRed = lColor - (bBlue * 65536) - (bGreen * 256)
Select Case sSort
Case "R", "r"
LongToRgb = bRed
Case "G", "g"
LongToRgb = bGreen
Case "B", "b"
LongToRgb = bBlue
End Select
End Function
Function to Convert Long to RGB value Comments
No comments yet — be the first to post one!
Post a Comment