[RESOLVED] color conversion

Printable View

Dec 19th, 2005, 08:38 PM
BrailleSchool

[RESOLVED] color conversion

I have attempted to find a color converter to convert colors like &H00C0C000& to RGB values. anyone know of anything?

Added green "resolved" checkmark - Hack

Re: color conversion

This?

VB Code:

'Example by Bertrand DUMAS-PILHOU ([email protected])
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long
Private Sub Form_Load()
    Dim RealColor As Long
    'Convert OLE colors to RGB colors
    TranslateColor Me.BackColor, 0, RealColor
    'show the result
    MsgBox "The backcolor of this form is R=" + CStr(RealColor And &HFF&) + " G=" + CStr((RealColor And &HFF00&) / 2 ^ 8) + " B=" + CStr((RealColor And &HFF0000) / 2 ^ 16)
End Sub

Dec 19th, 2005, 09:01 PM
BrailleSchool

Re: color conversion

awesome. thanks
Dec 20th, 2005, 04:29 AM
penagate

Re: [RESOLVED] color conversion
Why use a whole API when you can do it in 4 bitwise operations...
VB Code:
```
red = rgbValue And &HFF&
green = (rgbValue And &HFF00&) \ &HFF&
blue = rgbValue \ &HFF00&
```
Much more efficient :)
Dec 20th, 2005, 04:37 AM
seema_s

Re: [RESOLVED] color conversion
Quote:
Originally Posted by penagate

Why use a whole API when you can do it in 4 bitwise operations...

VB Code:

red = rgbValue And &HFF&
green = (rgbValue And &HFF00&) \ &HFF&
blue = rgbValue \ &HFF00&

Much more efficient :)
Where to write this code in a load event or for command buuton?
Dec 20th, 2005, 04:42 AM
penagate

Re: [RESOLVED] color conversion

Wherever you want. How should I know?