Colores en Hexadecimal para Diseño Web

Los colores en HTML se representan mediante un número hexadecimal.

Un número hexadecimal se diferencia de un número decimal en que no sólo puede tomar valores del 0 al 9, sino que puede tomar hasta dieciséis valores distintos, que van del 0 al 9, y de la A a la F.

Cada color estará representado por un grupo de seis dígitos en hexadecimal, precedidos por una almohadilla, como por ejemplo #FFFFFF.

También podemos personalizar nuestros propios colores, modificando los valores de cada uno de los dígitos que forman parte del número hexadecimal, para ello podemos hacer uso de programas gratuitos que se encuentran en internet, pero lo mejor para todo webmaster es desarrollar sus propias herramientas.

Eso es lo que haremos en este tutorial utilizando la aplicacion Visual Basic 6.

Crea un nuevo proyecto en VB y añade los siguientes controles como se ve en la imagen, luego cambia el nombre  marcado en rojo para cada objeto en sus propiedades.

Importante: modifica los valores de los objetos VScrollBar, coloca en cada uno de ellos los valores:

• LargeChange:1
• Max:255

 Una vez hecho esto, en la parte que corresponde al codigo, coloca lo siguiente:

Option Explicit

Dim r, v, a As String
Dim val1, val2, val3 As String
   
Sub MostrarValor()
    picColor.BackColor = RGB(255 - sRojo.Value, 255 - sVerde.Value, 255 - sAzul.Value)
End Sub

Sub Valores()
    a = Hex$(255 - sAzul.Value)
    r = Hex$(255 - sRojo.Value)
    v = Hex$(255 - sVerde.Value)
    If sRojo.Value = 255 Then val1 = "0" Else val1 = r
    If sVerde.Value = 255 Then val2 = "0" Else val2 = v
    If sAzul.Value = 255 Then val3 = "0" Else val3 = a
    Valor.Text = "#" + val1 + val2 + val3
End Sub

Private Sub Form_Load()
    picRojo.BackColor = RGB(255, 0, 0)
    picVerde.BackColor = RGB(0, 255, 0)
    picAzul.BackColor = RGB(0, 0, 255)
    Valor.Text = "#FFFFFF"
    r = "FF"
    v = "FF"
    a = "FF"
    MostrarValor
End Sub

Private Sub sAzul_Change()
    Valores
    picAzul.BackColor = RGB(0, 0, 255 - sAzul.Value)
    MostrarValor
End Sub

Private Sub sRojo_Change()
    Valores
    picRojo.BackColor = RGB(255 - sRojo.Value, 0, 0)
    MostrarValor
End Sub

Private Sub sVerde_Change()
    Valores
    picVerde.BackColor = RGB(0, 255 - sVerde.Value, 0)
    MostrarValor
End Sub

Presiona CTRL + F5 para compilar el proyecto, si no tienes errores, solo queda crear el ejecutable, esto se realiza con Archivo - Generar, le colocas un nombre a tu aplicacion y listo.

Esta pequeña aplicacion te servira de ayuda para la creacion o mantenimiento de plantillas web.