[VB6] Trasformare colori RGB in codice HTML

[SuperMariano81]

ciao ragazzi, se ho un colore RGB lo posso trasformare direttamente in codice HTML? esiste una funzione? grazie 1000

[buba88]

beh tenendo conto che un colore RGB è dato dall insieme di Rosso verde e blu, puoi usare questa funzione

Function colorehtml(rosso As Integer, verde As Integer, blu As Integer) As String
     colorehtml = "#" & Format(Hex(rosso), "00") & Format(Hex(verde), "00") & Format(Hex(blu), "00")
End Function

Poi la richiami così

codHtml = colorehtml 255,255,0 <----- questo corrisponde al blu

[Mabi]

Guarda questo esempio

[Bisco]

Forse intendevi: "se ho un valore LONG, risultato di una RGB(), posso trasformarlo in HTML?"

Public Function RGB2HTML(ByVal lColore As Long) As String
Dim sRGB, r, g, b

   sRGB = Format(Hex(lColore), "000000")
   
   r = Right(sRGB, 2)
   g = Mid(sRGB, 3, 2)
   b = Left(sRGB, 2)
   
   RGB2HTML = "#" & r & g & b
End Function

e la usi così:

sHtml = RGB2HTML (lColor)

oppure

sHtml = RGB2HTML (RGB(r, g, b))