Menu
Donnez votre avis

VB6 Retrouver les valeurs RGB d'une couleur

Posez votre question

Dim R as integer
Dim G as integer
Dim B as integer

Sub TrouveRGB(Coul As Long)
    R = &HFF& And Coul 
    G = (&HFF00& And Coul ) \ 256
    B = (&HFF0000 And Coul ) \ 65536
End Sub

Et l'inverse :
Function TrouveCoul(R As Long, G As Long, B As Long) As Long
    TrouveCoul = R + (G * 256) + (B * 65536)
End Function
Jean-François Pillou

Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.

En savoir plus sur l'équipe CCM

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme