Alors voila sa fait déjà un petit moment que j'en ai fait appel a votre aide pour trouver le code qui perméttais de convertir un code de trois nombres (Décimal) en code Héxadécimal et vice et versa (Dans mon cas il s'agit de couleurs). Alors voila mon projet a avancé mais j'ai remarqué un petit bug ou sans doute une erreur de code...
Je vous explique :
Lorsque le résultat d'une conversion DEC / HEX commence par un "0" le 0 disparait.
Il faut savoir que mon logiciel convertis 3 valeurs Décimale en 1 Héxadécimale donc il y a des 0 qui disparaissent au millieu de mon résultat en Hexadécimal ce qui me donne une couleur en Hexa mais qui contient que 4 caractère par exemple ...
Je voulais savoir si il existait une fonction plus efficace pour la conversion ou ce que vous me conseillez de faire.
Quel mécanisme utilises-tu pour convertir 3 nombres décimaux en 1 seul héxadécimal ?
De quoi parles-tu, en fait ?
Serait-ce simplement transformer R, G et B en un seul long ?(par exemple : R 25, G 70 et B = 201 à transformer en la couleur exprimée en un long ?)
Private Sub Command1_Click()
Label1.BackColor = RGB(124, 90, 24)
titi = RGB(124, 90, 24)
toto = "&H" & Hex(RGB(124, 90, 24))
Label2.BackColor = toto
Label3.BackColor = titi
MsgBox "en hexa : " & toto & " en long = " & titi
End Sub
Tu devraius avoir ainsi la réponse à toutes tes questions !
Je suis déja passé par ta solution jmfmarques mais le but de ce petit outil n'etais pas de toute le temps faire apparaitre des msgbox ... la manière avec laquelle j'ai fait cet outil est simple, le but étant de pouvoir comparer plusieurs couleurs de fond et de texte.
Petite parenthèse cet outil est déstiné à simplifier la vie des graphistes pour rendre leur site accessible aux malvoyants au niveau des contrastes et de la luminosité des couleur.