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.
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
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.
1 comentarios:
Hola :)
Me llamo Ana María y soy administradora de un sitio web. Tengo que decir que me gusto mucho su pagina y le felicito por hacer un buen trabajo.
Le cuento que me encuentro construyendo alianzas con webs amigas para así mejorar nuestros posicionamientos en Google. Por ello, me encantaría contar con tu sitio en mis sitios amigos, consiguiendo que mejoren nuestras ubicaciones en el buscador.
Mis sitios amigos son http://www.aeurus.cl/sitios-amigos/
Tenemos un Page Rank de 4, que es un buen nivel para Google.
Me gustaría un enlace en cualquier página de su sitio, si no dispone de una sección especial.
Espero que podamos realizar esta alianza.
Saludos.
Ana Maria
Publicar un comentario