HTML DIRECT
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
14 juil. 2004 à 18:25
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
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
https://codes-sources.commentcamarche.net/source/24536-html-direct
15 juil. 2004 à 17:24
15 juil. 2004 à 14:22
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