HTML DIRECT

Commentaire de malkolinge le 15/07/2004 14:22:59

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