Convertir une couleur hexa html en decimal vb (la vrai fonction)
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!
pour s'en servir:
si le textbox gbcol contient la valeur (par exemple) #336699
InvHex(Right(UCase(bgcol.Text), 6))
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
- Convertir une couleur hexa html en decimal vb (la vrai fonction)
- Decimal sql - Forum SQL
- Html array - Conseils pratiques -PHP
- Couleur hexa - Forum C# / .NET
- Hexa en decimal - Forum C / C++ / C++.NET
- Deux chiffre aprèla virgule - Forum SQL
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.