CLASSE POUR GÉRER LES COULEURS HEXADECIMALES

cs_iPol Messages postés 27 Date d'inscription jeudi 4 février 2010 Statut Membre Dernière intervention 3 juin 2010 - 31 mai 2010 à 12:49
cs_iPol Messages postés 27 Date d'inscription jeudi 4 février 2010 Statut Membre Dernière intervention 3 juin 2010 - 31 mai 2010 à 12:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3300-classe-pour-gerer-les-couleurs-hexadecimales

cs_iPol Messages postés 27 Date d'inscription jeudi 4 février 2010 Statut Membre Dernière intervention 3 juin 2010
31 mai 2010 à 12:49
il manque un truck du genre:

If Len(SString) 4 Then SString SString & "000"
If Len(SString) 5 Then SString SString & "00"
If Len(SString) 6 Then SString SString & "0"
Rejoignez-nous