Convertir une couleur hexa html en decimal vb (la vrai fonction)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 377 fois - Téléchargée 47 fois

Contenu du snippet

suite aux conneries que j'ai vu sur ce site genre

Public Function InvHex(ValHex As String) As String
InvHex = Val("&H" & ValHex & "&")
End Function

j'ai decidé de faire ma propre fonction car avec celle ci-dessus, si on met invhex(336699), on obtient une couleur marron, alors qu'on devrai obtenir une couleur bleu gris (couleur de fond de mon site).
voici donc la vrai fonction, une qui marche!

Source / Exemple :


Public Function InvHex(ValHex As String) As String
  InvHex = val("&H00" & Right(ValHex, 2) & Mid(ValHex, 3, 2) & Left(ValHex, 2) & "&")
End Function

Conclusion :


pour s'en servir:
si le textbox gbcol contient la valeur (par exemple) #336699
InvHex(Right(UCase(bgcol.Text), 6))

A voir également

Ajouter un commentaire

Commentaires

je sais que C pas tres clair mais vous aurai rien de plus!
La fonction que j'ai mise n'est pas une connerie OK, c'est pour convertir une donné Hexadécimal en décimal, et pas en donné de couleur HTML. Si tu étais un peu intelligent tu l'aurai compris.
t'enflamme pas!
la couleur VB c'est de ce type:
&H00bbggrr&
alors que les couleurs hexa C'est:
#rrggbb

(r red(rouge); g green(vert); b=blue(bleu)

@++
C pas tes gentil 1/10!
je croi que ça vaut quand meme plus!
En fait, si tu veux encore + d'explication, ma fonction ne sert pas pour les couleurs.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.