Couleur vb et format RRGGBB Hex???
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
-
6 avril 2003 à 14:30
avelis Messages postés 22 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 6 août 2006 - 18 août 2005 à 12:03
avelis Messages postés 22 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 6 août 2006 - 18 août 2005 à 12:03
1 réponse
avelis
Messages postés
22
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
6 août 2006
18 août 2005 à 12:03
18 août 2005 à 12:03
Salut, je suis tombé sur le même problème car j'utilisais Format(Hex(color),"000000") mais ca marche pas dans le cas où le nombre s'écrit avec des caractères hexa (A-F) donc j'ai fait la petite procédure suivante :
Dim strR As String
Dim strG As String
Dim strB As String
Dim strColor As String
strR = Hex(dlgFont.Color And 255)
strG = Hex(dlgFont.Color \ 256 And 255)
strB = Hex(dlgFont.Color \ 65536 And 255) If Len(strR) 1 Then strR "0" & strR If Len(strG) 1 Then strG "0" & strG If Len(strB) 1 Then strB "0" & strB
strColor = strR & strG & strB
J'espère que c'est bien ce que tu voulais :)
J'ai fait pas mal de test ca à l'air de fonctionner !
Dim strR As String
Dim strG As String
Dim strB As String
Dim strColor As String
strR = Hex(dlgFont.Color And 255)
strG = Hex(dlgFont.Color \ 256 And 255)
strB = Hex(dlgFont.Color \ 65536 And 255) If Len(strR) 1 Then strR "0" & strR If Len(strG) 1 Then strG "0" & strG If Len(strB) 1 Then strB "0" & strB
strColor = strR & strG & strB
J'espère que c'est bien ce que tu voulais :)
J'ai fait pas mal de test ca à l'air de fonctionner !
