• Home
 · 
• Graphics
 · 
• Function to Convert Long to RGB value

Function to Convert Long to RGB value

Function to Convert Long to RGB value

Rate Function to Convert Long to RGB value

• 1
• 2
• 3
• 4
• 5

(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