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
Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme