|
Tip formerly from VB2TheMax
Expertise: beginner
Language: VB4,VB5,VB6,VBS
February 19, 2000
Extract Red,Green,Blue components of a color
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)
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.
|
