Manual de Controles Avanzados y Gráficos en Visual Basic con Ejercicios Prácticos

Control Option Button (Botón de Opción)

Este control permite mostrar múltiples opciones en las que el usuario solo puede elegir una.

Ejercicios

En la aplicación anterior, aplicar atributos de tamaño de letras (12, 16, 20 y 24).

Private Sub Option1_Click()
    If Option1 = True Then Text1.FontSize = 12
End Sub

Private Sub Option2_Click()
    If Option2 = True Then Text1.FontSize = 16
End Sub

Private Sub Option3_Click()
    If Option3 = True Then Text1.FontSize = 20
End Sub

Private Sub Option4_Click()
    If Option4 = True Then Text1.FontSize = 24
End Sub

Cuadro de Lista (Listbox)

Es un control que muestra una lista de elementos de los cuales el usuario puede escoger uno o más de ellos.

Ejercicio

Desarrollar una aplicación que permita añadir, eliminar y seleccionar elementos de una lista.

Private Sub Command1_Click()
    Dim elemento As String
    elemento = InputBox("Ingrese un nuevo País", "Nuevo País")
    If Len(Trim(elemento)) > 0 Then List1.AddItem elemento
End Sub

Private Sub Command2_Click()
    If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()
    End
End Sub

Private Sub List1_Click()
    If List1.ListIndex <> -1 Then Text1.Text = List1.List(List1.ListIndex)
End Sub

Control de Cuadro Combinado (Combobox)

Este control combina las características de un control TextBox y un control ListBox.

Controles HScrollBar y VScrollBar

Son dos controles similares que se utilizan para seleccionar un valor entre los dos extremos del control.

Ejercicio

Desarrollar una aplicación que muestre el control VScrollBar. El programa debe combinar los tres colores básicos: rojo, verde y azul.

Private Sub HScroll1_Change()
    ROJO = HScroll1.Value
    Picture1.BackColor = RGB(ROJO, VERDE, AZUL)
End Sub

Private Sub HScroll1_Scroll()
    HScroll1_Change
End Sub

Private Sub HScroll2_Change()
    VERDE = HScroll2.Value
    Picture1.BackColor = RGB(ROJO, VERDE, AZUL)
End Sub

Private Sub HScroll2_Scroll()
    HScroll2_Change
End Sub

Private Sub HScroll3_Change()
    AZUL = HScroll3.Value
    Picture1.BackColor = RGB(ROJO, VERDE, AZUL)
End Sub

Private Sub HScroll3_Scroll()
    HScroll3_Change
End Sub

Imágenes y Gráficos

En nuestras aplicaciones es importante insertar gráficos para mostrar algún tipo de información adicional o para facilitar el uso de nuestra aplicación a los usuarios. Visual Basic incluye tres controles que nos permiten trabajar con gráficos:

• Form (Formulario)
• PictureBox (Cuadro de dibujo)
• Image (Imagen)

Control Image

El control Image permite presentar todo tipo de archivo (.bmp, .wmf, .jpeg, .gif, .ico) en una aplicación.

Para cargar una imagen cuando el usuario haga clic sobre el control Imagen y doble clic para borrar la imagen, el código sería:

Private Sub Image1_Click()
    Set Image1.Picture = LoadPicture("C:\imagenes\foto1.bmp")
End Sub

Private Sub Image1_DblClick()
    Set Image1.Picture = Nothing
End Sub

Ejercicio

Desarrollar una aplicación que permita ver cinco imágenes distintas, utilizando los controles OptionButton.

Private Sub Form_Load()
    Form2.MousePointer = 99
    Form2.MouseIcon = LoadPicture(App.Path & "\ICONO1.ICO")
End Sub

Private Sub Option1_Click(Index As Integer)
    If Index = 0 Then Set Image1.Picture = LoadPicture("C:\IMAGENES\FOTO1.JPG")
    If Index = 1 Then Set Image1.Picture = LoadPicture("C:\IMAGENES\FOTO2.JPG")
    If Index = 2 Then Set Image1.Picture = LoadPicture("C:\IMAGENES\FOTO3.JPG")
    If Index = 3 Then Set Image1.Picture = LoadPicture("C:\IMAGENES\FOTO4.JPG")
    If Index = 4 Then Set Image1.Picture = LoadPicture("C:\IMAGENES\FOTO5.JPG")
End Sub

Control PictureBox

Este control es similar al control Imagen: los dos se suelen usar para presentar imágenes gráficas en una aplicación.