VB6 Retrouver les valeurs RGB d'une couleur

Dernière mise à jour le 2 novembre 2009 à 16:58 par marlalapocket
Publié par lermite222

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
Meilleures réponses pour « VB6 Retrouver les valeurs RGB d'une couleur » dans :
[Programmation] Conversion RGB/HSL/CMYK... VoirIl existe plusieurs manières de spécifier les couleurs (on dit qu'il existe plusieurs espaces de couleur). En informatique, on utilise principalement RGB (rouge/vert/bleu), mais il est nettement moins intuitif que d'autres tels que HSL...
Transformer couleur en valeur numérique VoirCette macro permet d'obtenir le code d'une couleur, pour traitement ultérieur selon votre besoinSub distri_couleur() Dim i For i = 1 To 12 Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color Next i End...
Le codage RGB (RVB) VoirLe codage RGB Le codage RGB (Red, green, blue, pour Rouge Vert Bleu, en français RVB), mis au point en 1931 par la Commission Internationale de l'Eclairage (CIE) consiste à représenter l'espace des couleurs à partir de trois rayonnements...
Infographie VoirOn appelle infographie le domaine de l'informatique concernant la création et la manipulation des images numériques. L'infographie regroupe de nombreux savoirs, parmi lesquels la représentation des éléments graphiques (texte, image ou vidéo), ainsi...
La table des couleurs VoirLe codage des couleurs Les couleurs en HTML sont définies par 3 nombres hexadécimaux représentant les tons de Rouge, de Vert et de Bleu (selon le codage RGB (Red Green Blue, en français : RVB) de la couleur choisie. Ainsi la syntaxe de codage...