VB6 - metodo ShowColor

[geronimo75]

Come faccio a traformare il valore della proprietà COLOR del COMMONDIALOG control,valorizzata dal metodo in oggetto, in modo da inserirla in una stringa HTML? Esiste una libreria?

grazie
ciao

geronimooo

[junx]

Function ColorToHTML(ByVal color As Long) As String
    Dim tmp As String
    tmp = Right$("00000" & Hex$(color), 6)
    ColorToHTML = "#" & Right$(tmp, 2) & Mid$(tmp, 3, 2) & Left$(tmp, 2)
End Function

[Mabi]

Se può esserti utile, qui trovi un esempio su entrambe le conversioni.