HTML DIRECT

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
- - Dernière réponse : Fab707
Messages postés
54
Date d'inscription
lundi 10 novembre 2003
Statut
Membre
Dernière intervention
5 février 2006
- 15 juil. 2004 à 17:24
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