Function to Convert Long to RGB value

by Wim van Aerle (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 11^th October 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Function to Convert Long to RGB value




   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

Download this snippet Add to My Saved Code

Function to Convert Long to RGB value Comments

No comments have been posted about Function to Convert Long to RGB value. Why not be the first to post a comment about Function to Convert Long to RGB value.

Function to Convert Long to RGB value

Function to Convert Long to RGB value Comments

Post your comment

Difficulty