Menu

VB6 Retrouver les valeurs RGB d'une couleur


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

Article original publié par Carlos-vialfa. Traduit par lermite222.
Ce document intitulé «  VB6 Retrouver les valeurs RGB d'une couleur  » issu de CommentCaMarche (https://www.commentcamarche.net/) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme
VB6 : Changer l'image du bureau + Mode d'affichage
VB6 Tracer le suivi de la souris ou ligne droite sur une forme