CLASSE POUR GÉRER LES COULEURS HEXADECIMALES

Signaler
Messages postés
27
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
3 juin 2010
-
Messages postés
27
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
3 juin 2010
-
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

Messages postés
27
Date d'inscription
jeudi 4 février 2010
Statut
Membre
Dernière intervention
3 juin 2010

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"