Extract Red,Green,Blue components of a color

Tip formerly from VB2TheMax

Expertise: beginner
Language: VB4,VB5,VB6,VBS

February 19, 2000

If you have a 32-bit color value in RGB format, you can extract its Red, Green and Blue components using the following routines:


Function GetRed(ByVal lColor As Long) As Long
GetRed = lColor Mod 256
End Function
Function GetGreen(ByVal lColor As Long) As Long
GetGreen = (lColor \ &H100) Mod 256
End Function
Function GetBlue(ByVal lColor As Long) As Long
GetBlue = (lColor \ &H10000) Mod 256
End Function

Remember that you can combine the red, green and blue components into a RGB color using the built-in RGB function


rgbColor = RGB(redColor, greenColor, blueColor)

















It's quick, easy and you get access to all the articles on DevX.

This registration/login is to allow you to read articles on devx.com.
Already a member?







To become a member of DevX.com create your Member Profile by completing the form below.
Membership is free!


Already registered? Sign In










E-mail (User Name)
 

Create a Password
 

Re-enter Password
 


First Name
 

Last Name
 

Company
 

Company Size



Address
 

City
 

State/Province


Country


Postal Code/Zip
 

Job Function


Phone
 

Note: Extension number is optional, but may be included by adding an "x" before the extension number.
 

By registering you will also be signed up for the Enterprise Development Daily newsletter.
 After registering you may choose to opt-out by clicking on the "Manage Profile" link.


Cancel








Don't have an account? Register Now - for FREE!






E-mail (user name)


Password



Cancel | Forgot Your Password?

















Marco Bellinaso

If you have a hot tip and we publish it, we'll pay you. However, due to accounting overhead we no longer pay $10 for a single tip submission. You must accumulate 10 acceptable tips to receive payment. Be sure to include a clear explanation of what the technique does and why it's useful. If it includes code, limit it to 20 lines if possible. Submit your tip here.






Browse All Tips