RGB Functions

• • Reply

  19 years ago

  by Apoc

  Michael Gagne

  Dallas/Fort Worth, TX, United States

  Joined 19 years ago

  Function BofRGB(Color As Long) As Integer
     BofRGB = (Color And &HFF0000) / 16 ^ 4
  End Function
  

  
  Function GofRGB(Color As Long) As Integer
     If (Color And &HFF0000) > 0 Then
         GofRGB = ((Color And &HFF00) Mod (Color And &HFF0000)) / 16 ^ 2
     Else
         GofRGB = (Color And &HFF00) / 16 ^ 2
     End If
  End Function
  

  
  Function RofRGB(Color As Long) As Integer
     RofRGB = Color And &HFF
  End Function
  

  Report abuse