2PBD1314

Tema: Los botones de opción (OptionButton)

Subtema: Métodos de las cajas de verificación

Ejercicios prácticos:

La siguiente aplicación permite seleccionar entre varios efectos que se le aplicarán a una caja de texto mediante botones de verificación después haberse hecho clic sobre un botón de comando.

 


Abra un nuevo proyecto e inserte un control Frame y dentro de este, seis cajas de verificación. Debajo de estas un botón de comando y a la derecha una caja de texto, tal y como se ve en la imagen de la página anterior. Aplique los siguientes valores en las propiedades indicada de los controles que se muestran en la siguiente tabla:



Ahora codifiquemos para que cada opción seleccionada aplique el efecto seleccionado a la caja de texto. Cada vez que el usuario haga seleccione un efecto deberá hacer clic sobre el botón Aplicar, por consiguiente, debemos codificar el evento Click del botón Aplicar. Haga doble Clic sobre el botón Aplicar y dentro del evento Click escriba:

‘Verificamos si la primera caja de verificación esta activada.

If Check1.Value = 1 Then ‘Aplicamos el efecto.
   txtContenido.BackColor = vbBlue 'Fondo azul.
   txtContenido.ForeColor = vbWhite ' Texto blanco.
Else
   ‘Si no esta activada pone la caja en su estado normal: 
   ‘Fondo blanco y texto negro.
   txtContenido.BackColor = vbWhite 'Fondo blanco.
   txtContenido.ForeColor = vbBlack 'Texto negro.
End If
‘Verificamos si la segunda caja de verificación esta activada.
If Check2.Value = 1 Then ‘Aplicamos el efecto.
   txtContenido.FontSize = 18 'Letras grandes 
Else
   ‘Si esta desactivada pone el tamaño inicial de la caja.
   txtContenido.FontSize = 8 'Letras normal.
End If
   ‘Verificamos si la tercera caja de verificación esta activada.
If Check3.Value = 1 Then 'Aplicamos el efecto.
   txtContenido.FontItalic = True 'Pone cursiva.
Else
   'Si no está activada desactiva la cursiva. 
   txtContenido.FontItalic = False 'Quita cursiva.
End If
   ‘Verificamos si la cuarta caja de verificación esta activada.
If Check4.Value = 1 Then 'Aplicamos el efecto.
   txtContenido.FontBold = True 'Pone negrita.
Else
   'Si no esta activada desactiva la negrita.
   txtContenido.FontBold = False 'Quita negrita.
End If
‘Verificamos si la quinta caja de verificación esta activada.
If Check5.Value = 1 Then 'Aplicamos el efecto.
   txtContenido.FontUnderline = True 'Pone subrayado.
Else
   'Si no esta activada desactiva la negrita. 
   txtContenido.FontUnderline = False 'Quita subrayado.
End If
‘Verificamos si la sexta caja de verificación esta activada. 
If Check6.Value = 1 Then
   'Aplicamos el efecto.
   txtContenido.FontStrikethru = True 'Pone tachado.
Else
   'Si no esta activada desactiva la negrita.
   txtContenido.FontStrikethru = False 'Quita tachado.
End If

Ingresa al siguiente enlace de apoyo para observar la actividad de aprendizaje: 

http://www.labc.usb.ve/paginas/jregidor/EC3731/pdfs/vbasic60.pdf

  • Corra la aplicación.
  • Escriba algo en la caja de texto.
  • Active el efecto que quiera aplicar a la caja de texto y haga clic en el botón Aplicar. Podrá observar que la caja de texto toma el efecto seleccionado. Si desea quitar el efecto seleccionado, entonces, desactive la caja de verificación y, a continuación, haga clic en el botón Aplicar.
  • Detenga la aplicación y guarde el ejercicio con los nombres FormEjercicio36-3 para el formulario y Ejercicio36-3 para el proyecto.

La barra de desplazamiento (ScrollBars)



Visual Basic posee 2 tipos de barras de desplazamiento o Scrollbar, una barra de tipo Vertical llamada VScrollBar y otro de tipo Horizontal llamada HScrollBar:

Ambas barras son exactamente iguales en lo que se refiere a las propiedades, métodos y eventos salvo su distinta orientación. La función principal de estos controles es la de devolver un valor para luego utilizarlo ya sea para una función o rutina que tengamos en nuestro programa.

Propiedades de las barras de desplazamiento

Las barras de desplazamiento poseen la mayoría de las propiedades, métodos y eventos comunes de los controles. Pero al igual que en todos los controles solo algunas de estas son consideradas realmente importantes.

Las barras de desplazamiento poseen seis propiedades que son realmente importantes. Estas se describen a continuación:

Value Es la propiedad más importante de las barras de desplazamiento. Esta establece o devuelve el valor actual del control cuando movemos el cuadro deslizable de la barra de desplazamiento. Esta   propiedad   también   cambia   su  valor cuando hacemos clic en las flechas arriba y abajo de la barra de desplazamiento.

Max Devuelve o establece el valor máximo de la propiedad Value de la barra de desplazamiento cuando el cuadro deslizable se encuentra en el extremo inferior o derecho. El valor máximo para esta propiedad es 32767.

Min Devuelve o establece el valor mínimo de la propiedad Value de la barra de desplazamiento cuando el cuadro deslizable se encuentra en el extremo superior o izquierdo.

LargeChang e Devuelve o establece el cambio que se producirá en el valor de la propiedad Value de la barra de desplazamiento cuando el usuario haga clic en el área situada entre el cuadro deslizable y la flecha de desplazamiento. El mínimo valor de esta propiedad es 1.

SmallChange Devuelve o establece el cambio que se producirá en el valor de la propiedad Value de un control de barra de desplazamiento cuando el usuario haga clic en la flecha de desplazamiento. El mínimo valor de esta propiedad es 1.

 Eventos sobre las barras de desplazamiento

Las barras de desplazamiento poseen todos los eventos estándar de los controles, pero solo dos de estos son los más importantes. Estos son los eventos Change y Scroll. El evento Change ocurre cuando el usuario mueve el cuadro deslizable o hace clic sobre las flechas de la barra de desplazamiento. Cuando este evento ocurre se modifica el valor de la propiedad Value. El evento Scroll ocurre cuando el usuario mueve el cuadro deslizable de la barra de desplazamiento. Al igual que el evento Change el evento Scroll modifica el valor de la propiedad Value.

Para este ejercicio hemos creado una aplicación que permite crear colores utilizando la función RGB de Visual Basic. Esta función permite crear colores haciendo combinaciones con los colores básicos rojo, verde y azul. Para crear un color con esta función solo se debe especificar como entrada un valor comprendido entre 0 y 255 para cada color de la función. El valor 0 indica la menor intensidad y 255 la máxima.

En este ejercicio hemos utilizado tres barras de desplazamiento para establecer en cada color un valor comprendido entre 0 y 255.

  • Abra un nuevo proyecto.
  • Inserte tres Frame y dentro de cada uno una barra de desplazamiento horizontal (HScrollBar). (Observe la figura).
  • Inserte tres etiquetas y al lado de cada etiqueta una caja de texto.
  • Inserte otro control Frame y dentro de este un PictureBox.
  • Inserte un botón de comando en la esquina inferior izquierda del formulario.


Establezca los siguientes valores en las propiedades indicadas en cada control:



La apariencia de los controles sobre el formulario debe ser la siguiente:



Haga doble clic sobre la primera barra de desplazamiento y dentro del evento Change escriba:

Dim Rojo, Verde, Azul '

Almacena el valor actual de cada barra en la variable correspondiente a cada color.

Rojo = HScroll1.Value Verde = HScroll2.Value Azul = HScroll3.Value

'Asigna el color al cuadro de imagen utilizando la función RGB y los valores de las barras.

Picture1.BackColor = RGB(Rojo, Verde, Azul) 'Establece el valor actual de cada barra en las cajas de texto.

Text1.Text = Rojo Text2.Text = Verde Text3.Text = Azul

Haga doble clic sobre la segunda barra de desplazamiento y dentro del evento Change escriba:

Dim Rojo, Verde, Azul

'Almacena el valor actual de cada barra en la variable correspondiente a cada color.

Rojo = HScroll1.Value Verde = HScroll2.Value Azul = HScroll3.Value

'Asigna el color al cuadro de imagen utilizando la función RGB y los valores de las barras.

Picture1.BackColor = RGB(Rojo, Verde, Azul)

'Establece el valor actual de cada barra en las cajas de texto.

Text1.Text = Rojo Text2.Text = Verde Text3.Text = Azul

Haga doble clic sobre la tercera barra de desplazamiento y dentro del evento Change escriba:

'Almacena el valor actual de cada barra en la variable correspondiente a cada color.

Dim Rojo, Verde, Azul Rojo = HScroll1.Value Verde = HScroll2.Value Azul = HScroll3.Value

'Asigna el color al cuadro de imagen utilizando la función RGB y los valores de las barras.

Picture1.BackColor = RGB(Rojo, Verde, Azul)

'Establece el valor actual de cada barra en las cajas de texto.

Text1.Text = Rojo Text2.Text = Verde Text3.Text = Azul

Haga doble clic sobre la primera barra de desplazamiento y, a continuación, seleccione el evento Scroll. Dentro de este evento escriba:

'Llama el evento Change de la primera barra de desplazamiento.

HScroll1_Change

Haga doble clic sobre la segunda barra de desplazamiento y, a continuación, seleccione el evento Scroll. Dentro de este evento escriba:

'Llama el evento Change de la segunda barra de desplazamiento.

     HScroll2_Change

Haga doble clic sobre la tercera barra de desplazamiento y, a continuación, seleccione el evento Scroll. Dentro de este evento escriba:

'Llama el evento Change de la tercera barra de desplazamiento.

HScroll3_Change

En el evento Click del botón Salir escriba:

‘Sale de la aplicación.
End

Corra la aplicación y mueva el cuadro deslizable de cada una de las barras de desplazamiento hacia la derecha. Cada vez que mueve uno de estos cuadros deslizable se crea un nuevo color y el valor actual de la barra de desplazamiento se asigna en las cajas de texto de la derecha. Detenga la aplicación y guarde el ejercicio con los nombres FormEjercicio37-3 para el formulario y Ejercicio37-3 para el proyecto.

Amplia tus conocimientos ingresando a los siguientes enlaces: 



TAREA:
Abre un nuevo proyecto y diseña el siguiente gráfico en Visual Basic utilizando el control estudiado.
Transformación de unidades de temperatura. Muestra un programa sencillo que permita ver la equivalencia entre las escalas de temperaturas en grados centígrados y grados Fahrenheit. Los ficheros de este proyecto se pueden llamar Temperat.vbp y Temperat.frm.
En la siguiente tabla se indican los controles utilizados en este ejemplo junto con las propiedades y los valores correspondientes.


No hay comentarios:

Publicar un comentario

Publicaciones Populares

Con la tecnología de Blogger.

Publicaciones recientes

Cursos - Mario Cobo Barona 2020