El Color en Visual Basic 6.0.



El color en Visual Basic 6.0 está definido por el sistema R.G.B. RGB proviene de las iniciales de Red-Green-Blue, y cada valor de cada color ocupa 1 byte (de 0 a 255), expresado en sistema hexagesimal (0 a 255, 00 a FF). El color ocupa 4 byes en la memoria: 1 para cada color (1 para Rojo, 1 para Verde y 1 para Azul) y un byte extra.
Los distintos colores surgen de los valores dados a cada una de las componentes de RGB, o sea que la cantidad de colores que se pueden formar es muy amplia.

Constantes de color.

Visual Basic 6.0 dispone de una serie de constantes de colores, las cuales se han utilizado en ejemplos anteriores, al grupo de estas constantes se lo denomina ColorConstants y contiene las constantes que se encuentran en la tabla 6.
Estas constantes son algunos de los colores más usuales del sistema RGB, sin embargo es bastante limitado ya que con el sistema RGB se pueden obtener millones de combinaciones y por lo tanto millones de colores.

Tabla 6 - Constantes de Colores
Color Constante Valor
Negro vbBlack 0
Blanco vbWhite 16777215
Amarillo vbYellow 65535
Verde vbGreen 65280
Rojo vbRed 255
Azul vbBlue 16711680
Turquesa vbCyan 16776960
Magenta vbMagenta 16711935

Función RGB.

Existe una función con la cual obtener en cualquier color del sistema RGB y es mediante la función RGB. Esta función tiene por argumento los tres valores de las componentes R.G.B., que pueden tomar un valor de 0 a 255. Si se le da un valor mayor que 255, se toma el valor 255.
La forma general de la función RGB es la siguiente:

RGB(rojo as Integer,verde as Integer, azul as Integer)

Ahora se presentan los valores de la función RGB para algunos colores:

RGB Color
RGB(0,0,0) Negro
RGB(255,255,255) Blanco
RGB(255,0,0) Rojo
RGB(0,0,255) Azul
RGB(0,255,0) Verde
RGB(0,255,255) Turquesa

Ejemplo

Crea un nuevo proyecto estándar y coloca los siguientes controles:

Control Propiedad Valor
ListBox Name lstColor
Label Name lblHex
" " Caption 000000
Label Name lblDec
" " Caption 0-0-0
Scroll Bar Name hsbColor
" " Index 0 a 2
" " Min 0
" " Max 255
" " Value 0

Escribe el siguiente código en la ventana de código:

Private Sub Font_Load()
lstColor.BackColor=vbBlack
End Sub


Private Sub hsbColor_Scroll(index as Integer)
lstColor.BackColor=RGB(hsbColor(0).Value,hsbColor(1).Value,hsbColor(2).Value)
lblDec.Caption=hsbColor(0).Value &"-"& hsbColor(1).Value &"-"& hsbColor(2).Value
lblHex.Caption=Hex(hsbColor(0).Value) & Hex(hsbColor(1).Value) & Hex(hsbColor(2).Value)
End Sub


Pulse F5 para probar la aplicación.
La barra de desplazamiento de índice 0 da valor al argumento rojo de la función RGB, la de índice 1 da valor al argumento verde y la de índice 2 da valor al argumento azul.
La etiqueta lblDec contiene los valores de la función R-G-B y la etiqueta lblHex contiene esos valores convertidos al sistema Hexagesimal. En el lenguaje HTML, por ejemplo, los colores se representan en el sistema RGB con esta notación Hexagesimal.

Otra forma de definir el color es con la siguiente notación:

&H00FFFF&
RGB(255,255,0)


Los colores están determinados en sistema Hexagesimal por 6 caracteres entre la H y el signo & (00FFFF). Este color representa el amarillo y los dos primeros caracteres (00) representan al color azul, los dos siguientes al verde y los dos últimos al rojo.

Variables de color.

Los colores que se representan con las constantes de color de Visual Basic 6.0 se pueden almacenar en un tipo de variable declarada como ColorConstants. Un color cualquiera, por ejemplo, el que se obtiene con la función RGB se almacenan en una variable de tipo Long.

No hay comentarios:

Publicar un comentario en la entrada