HTML DIRECT

Signaler
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Fab707
Messages postés
54
Date d'inscription
lundi 10 novembre 2003
Statut
Membre
Dernière intervention
5 février 2006
-
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/24536-html-direct

Fab707
Messages postés
54
Date d'inscription
lundi 10 novembre 2003
Statut
Membre
Dernière intervention
5 février 2006

Ok merci :^)
cs_malkolinge
Messages postés
10
Date d'inscription
mercredi 11 juin 2003
Statut
Membre
Dernière intervention
24 janvier 2008

Salut.

J'écris aussi un éditeur HTML et pour les couleurs j'utilise une fonction trouvée ici-même je crois :

function Decompose(Couleur)
Dim Rdec, Vdec, Bdec
Dim R, V, B

Rdec = Int(Couleur Mod 256)
R = Hex(Rdec)
If R = 0 Then
R = "0" & R
End If

Vdec = Int((Couleur - Rdec) / 256 Mod 256)
V = Hex(Vdec)

If Vdec = 0 Then
V = "0" & V
End If

Bdec = Int((Couleur - Rdec) / 256 / 256)
B = Hex(Bdec)
If B = 0 Then
B = "0" & B
End If

Decompose = R & V & B
End function