Visual Basic 6.0 - Tecnun

More documents

Recommendations

Info

ESIISS: Aprenda Visual Basic 6.0 como si estuviera en Primero página 12por medio de bucles for. A continuación se muestra el código correspondiente a los procedimientosque tratan los eventos de este ejemplo.Option ExplicitPublic Brojo, Bverde, Bazul As IntegerPublic Frojo, Fverde, Fazul As IntegerPrivate Sub cmdSalir_Click()EndEnd SubPrivate Sub Form_Load()Brojo = 0Bverde = 0Bazul = 0Frojo = 255Fverde = 255Fazul = 255lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)End SubPrivate Sub hsbColor_Change(Index As Integer)If optColor(0).Value = True ThenlblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _hsbColor(2).Value)Dim i As IntegerFor i = 0 To 2txtColor(i).Text = hsbColor(i).ValueNext iElselblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _hsbColor(2).Value)For i = 0 To 2txtColor(i).Text = hsbColor(i).ValueNext iEnd IfEnd SubPrivate Sub optColor_Click(Index As Integer)If Index = 0 Then ’Se pasa a cambiar el fondoFrojo = hsbColor(0).ValueFverde = hsbColor(1).ValueFazul = hsbColor(2).ValuehsbColor(0).Value = BrojohsbColor(1).Value = BverdehsbColor(2).Value = BazulElse’Se pasa a cambiar el textoBrojo = hsbColor(0).ValueBverde = hsbColor(1).ValueBazul = hsbColor(2).ValuehsbColor(0).Value = FrojohsbColor(1).Value = FverdehsbColor(2).Value = FazulEnd IfEnd SubEl código de este ejemplo es un poco más complicado que el de los ejemplos anteriores yrequiere unas ciertas explicaciones adicionales adelantando cuestiones que se verán posteriormente:1. La función RGB() crea un código de color a partir de sus argumentos: las componentes RGB(Red, Green and Blue). Estas componentes, cuyo valor se almacena en un byte y puede oscilarentre 0 y 255, se determinan por medio de las tres barras de desplazamiento.
Capítulo 1: Introducción página 132. El color blanco se obtiene con los tres colores fundamentales a su máxima intensidad. Elcolor negro se obtiene con los tres colores RGB a cero. También se pueden introducir con lasconstantes predefinidas vbWhite y vbBlack, respectivamente.3. Es importante disponer de unas variables globales que almacenen los colores del fondo y deltexto, y que permitan tanto guardar los valores anteriores de las barras como cambiar éstas asus nuevos valores cuando se clica en los botones de opción. Las variables globales, definidasen la parte de definiciones generales del código, fuera de cualquier procedimiento, sonvisibles desde cualquier parte del programa. Las variables definidas dentro de una función oprocedimiento sólo son visibles desde dentro de dicha función o procedimiento (variableslocales).4. La función hsbColor_Change(Index As Integer) se activa cada vez que se cambia el valor enuna cualquiera de las barras de desplazamiento. El argumento Index, que Visual Basic defineautomáticamente, indica cuál de las barras del array es la que ha cambiado de valor (la 0, la 1ó la 2). En este ejemplo dicho argumento no se ha utilizado, pero está disponible por si sehubiera querido utilizar en el código.
Page 1 and 2: Escuela Superior de Ingenieros Indu
Page 3 and 4: Índicepágina iÍNDICE1. Introducc
Page 5: Índicepágina iii6.1.3 Función RG
Page 8 and 9: ESIISS: Aprenda Visual Basic 6.0 co
Page 68 and 69:
ESIISS: Aprenda Visual Basic 6.0 co
Page 70 and 71:
Page 72 and 73:
Page 74 and 75:
Page 76 and 77:
Page 78 and 79:
Page 80 and 81:
Page 82 and 83:
Page 84 and 85:
Page 86 and 87:
Page 88 and 89:
Page 90 and 91:
Page 92 and 93:
Page 94 and 95:
Page 96 and 97:
Page 98 and 99:
Page 100 and 101:
Page 102 and 103:
Page 104 and 105:
show all

Visual Basic 6.0 - Tecnun

Create successful ePaper yourself

Delete template?

Save as template?