Visual Basic 6.0 - Tecnun

Capítulo 1: Introducción página 111.5.4 Ejemplo 1.4: Colores RGBLa Figura 1.5 muestra el formulario y loscontroles del proyecto Colores. Los ficheros deeste proyecto se pueden llamar Colores.vbp yColores.frm.En este ejemplo se dispone de tres barras dedesplazamiento con las que pueden controlarselas componentes RGB del color del fondo y delcolor del texto de un control label. Dos botonesde opción permiten determinar si los valores delas barras se aplican al fondo o al texto. Cuandose cambia del texto al fondo o viceversa losvalores de las barras de desplazamiento (y laposición de los cursores) cambian de modoacorde.Figura 1.5. Colores de fondo y de texto.A la dcha. de las barras de desplazamientotres cajas de texto contienen los valores numéricos de los tres colores (entre 0 y 255). A la izda. treslabels indican los colores de las tres barras. La Tabla 1.5 muestra los controles y las propiedadesutilizadas en el este ejemplo.Control Propiedad Valor Control Propiedad ValorfrmColores Name frmColores hsbColor Name hsbColorCaption Colores Min 0lblCuadro Name lblCuadro Max 255Caption INFORMÁTICA 1 SmallChange 1Font MS Sans Serif, Bold, 24 LargeChange 16cmdSalir Name cmdSalir Index 0,1,2Caption Salir Value 0Font MS Sans Serif, Bold, 10 txtColor Name txtColoroptColor Name optColor Text 0Index 0,1 Locked TrueCaption Fondo, Texto Index 0,1,2Font MS Sans Serif, Bold, 10 lblColor Name lblColorCaption Rojo,Verde,AzulIndex 0,1,2Font MS Sans Serif, 10Tabla 1.5. Objetos y propiedades del ejemplo Colores.Una característica importante de este ejemplo es que se han utilizado vectores (arrays) decontroles. Las tres barras se llaman hsbColor y se diferencian por la propiedad Index, que toma losvalores 0, 1 y 2. También las tres cajas de texto, las tres labels y los dos botones de opción sonarrays de controles. Para crear un array de controles basta crear el primero de ellos y luego hacerCopy y Paste tantas veces como se desee, respondiendo afirmativamente al cuadro de diálogo quepregunta si desea crear un array.El procedimiento Sub que contiene el código que gestiona un evento de un array es único paratodo el array, y recibe como argumento la propiedad Index. De este modo que se puede saberexactamente en qué control del array se ha producido el evento. Así pues, una ventaja de los arraysde controles es que pueden compartir el código de los eventos y permitir un tratamiento conjunto