|
|
|
|
| If you have a 32-bit color value in RGB format, you can extract its Red, Green and Blue components using the following routines: |
 Click here to copy the following block | 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)
|
|
|
|
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
 |
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
|
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|