Conversion Couleur VB === RVB

Question

C'est encore moi,
je voudrais convertir une couleur de la boite de dialoge "Couleurs" (avec le controle CommonDialog) en valeurs RGB (comme le poste precedent Conversion Hexadecimal ===> RVB)

Merci d'avance
alexx860

Renfield · Answer

Private Declare Function APITranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, col As COLORREF) As Long

Private Type COLORREF
    Blue As Byte
    Green As Byte
    Red As Byte
End Type

Private Function TranslateColor(ByVal Color As Long) As Long
    Dim REF As COLORREF
    APITranslateColor Color, 0, REF
    TranslateColor = RGB(REF.Red, REF.Green, REF.Blue)
End Function

Private Sub Form_Load()
    Dim RealColor As Long
    CommonDialog1.ShowColor
    RealColor = TranslateColor(CommonDialog1.Color)
    MsgBox Hex$(RealColor)
    End
End Sub



By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

alexx860 · Answer

Merci bcp ca marche super bien !
Heureusement que j'ai decouvert ce forum, sinon j'aurais deja abandonné le vb  :-p

Renfield · Answer

Cool.

moi, j'ai commencé, VbFrance n'existe pas : j'ai appris seul.
Donc maintenant, j'aide, ceux qui ont la chance d'avoir ce genre de ressources, et la passion de la programmation.

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Conversion Couleur VB ===> RVB

3 réponses

Discussions similaires