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
Ce document intitulé « VB6 Retrouver les valeurs RGB d'une couleur » issu de Comment Ça Marche (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.