Color Conversion vb decimal to RRGGBB

[sodakotahusker]

I want to convert a vb color from decimal to the hex RRGGBB format. I have it working going the other direction but the algorithm I came up with for going from (eg) 1654433 to a4bbc9 is not working right. Anybody know the correct formula for this conversion??

 

[JohnYingling]

RGB in hex is actually BBGGRR.
Try this to see where they go.

Dim lngColor
lngColor = RGB(1,0,0)
Debug.Print "RED  =" & Cstr(lngColor) 
lngColor = RGB(0,1,0)
Debug.Print "GREEN=" & Cstr(lngColor) 
lngColor = RGB(0,0,1)
Debug.Print "BLUE =" & Cstr(lngColor)
  [URL unfurl="true"]WWW.VBCompare.Com[/URL]

 

[sodakotahusker]

So if I divide the decimal number by 65536 - I'd get the blue value - subtract the combo(blue value * 65536) from the total - and then divide by 256 to get the green value - subtract the green factor and what is left is my red value. Got it!!! Thanks!!!

 

[JohnYingling]

Red = lngColor mod 256
Green = (lngColor \ 256) mod 256
Blue = lngColor \ 65536

http://WWW.VBCompare.Com