Obtenir le r, le g et le b d'une ole_colorRésolu

Question

Bonjour,
voil&#224; le probl&#232;me : j'aimerais savoir comment je pourrais avoir le niveau de couleur Red Green et Blue &#224; partir d'une ole_color.
En clair, j'aimerais avoir le contraire de la fonction RGB(r,g,b)

Merci d'avance ;)

The DAMIRATOR

Gobillot · Accepted Answer

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

Daniel

BruNews · Answer

Il y a ce qu'il faut dans ma DLL:
http://www.vbfrance.com/code.aspx?id=18494

sinon faudra faire par multiplication et isoler les bits avec un And 0xFF.

ciao...
BruNews, MVP VC++

cs_CanisLupus · Answer

Tout juste Daniel mais dans ce cas, on recopie in extenso. Il manque la ligne :


'Example by Bertrand DUMAS-PILHOU ([mailto:bdumas@eurocortex.fr bdumas@eurocortex.fr])

Loup Gris

Gobillot · Answer

exact.

Daniel

Gobillot · Answer

'une autre m&#233;thode

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command2_Click()
    Dim couleur As Long
    Dim C(2)     As Byte
    Dim index    As Byte
    
    index = Me.BackColor And 255
    couleur = GetSysColor(index)
    CopyMemory C(0), couleur, 3
    MsgBox "Rouge= " & C(0)
    MsgBox "vert= " & C(1)
    MsgBox "Bleu= " & C(2)
End Sub

Daniel

unrealgun · Answer

Merci &#224; tous :), je fonce l'essayer !

The DAMIRATOR