Color a HTM
o convertir un color en el valor Hexadecimal

Fecha: 03/Feb/99 (26/Ene/99)
Autor: Pablo Garcia < vbespaniol@usa.net >

Te escribo enviandote un codigo (creado por mi) sobre como convertir el color en numeros que nos entrega el ShowColor del Microsoft Common Dialog en color Html.
Ejemplo: 16777215 = #FFFFFF.
El ejemplo contiene un Modulo en el cual se encuentra la función.

Como funciona?:
Facil...

'Esta funcion nos dara el color ya pronto en formato HTML
Text1.text = color(Commondialog.color)

No utiliza API`s, solamente va descomponiendo el numero con restas...

Si tenes dudas enviame un e-mail,
Saludos,
Pablo :)

PD: Vos diras que es más facil con el comando HEX, pero este no funciona con
todos los numeros, ejemplo: 255 = #FF, aqui se produce error porque el numero
tendria que ser #FF0000, ahi andaria.

El código: (en el zip se incluye un ejemplo)

'
Attribute VB_Name = "Color"
Option Explicit

Function colorhtm(largo As Long) As String
Dim a, x, r, g, b
Dim red, green, blue
Dim hexr, hexg, hexb
x = largo
'-------------------
For b = 0 To 255
If x >= 65536 Then
a = x - 65536
x = a
Else
blue = b
Exit For
End If
Next b
'-----------------
For g = 0 To 255
If x >= 256 Then
a = x - 256
x = a
Else
green = g
Exit For
End If
Next g
'----------------
red = x
'---------------
hexr = "0" & Hex(red)
hexg = "0" & Hex(green)
hexb = "0" & Hex(blue)
hexr = Right(hexr, 2)
hexg = Right(hexg, 2)
hexb = Right(hexb, 2)
colorhtm = "#" & hexr & hexg & hexb
End Function

Fichero con el código de ejemplo (colorHTM.zip 2.06 KB)