Domina los Controles Esenciales de Visual Basic: Ejemplos Prácticos

Teclas de Acceso Rápido a un Control

Si un control tiene la propiedad Caption, se le puede asignar una tecla de acceso rápido para seleccionarlo directamente utilizando el teclado. Esto se logra colocando un ampersand (&) antes de la letra que se usará como atajo en la propiedad Caption.

Control MessageBox

El MessageBox o caja de mensajes se utiliza para mostrar notificaciones o hacer preguntas al usuario, esperando una respuesta.

Ejemplo Básico

Al ejecutar la siguiente orden, se mostrará una caja de mensaje simple con un texto, un botón de "Aceptar" y un título.

Private Sub Command1_Click()
    MsgBox "Hola, bienvenidos al mundo de Visual Basic"
End Sub

Al hacer clic en el botón de comandos, aparecerá la caja de mensaje.

Personalización del MessageBox

• Mensaje en varias líneas: Para escribir un mensaje que ocupe varias líneas, utilice la constante vbCrLf.

  MsgBox "Hola, bienvenidos" & vbCrLf & "al mundo de Visual Basic", , "Informática"

• Configuración de botones y foco: Con el siguiente código, se mostrarán los botones "Sí" y "No" y el foco (la selección inicial) estará en el segundo botón.

  MsgBox "Hola, bienvenidos" & vbCrLf & "al mundo de Visual Basic", 48 + 4 + 256, "Informática"

Ejemplo: Confirmar antes de salir

Si deseamos preguntar al usuario si realmente quiere salir de una aplicación, el código sería el siguiente:

Private Sub Salir_Click()
    Dim Resp As Integer
    Resp = MsgBox("¿Desea salir de la aplicación?", 32 + 4 + 256, "Mensaje")
    If Resp = 6 Then 'El valor 6 corresponde al botón "Sí"
        End
    End If
End Sub

Control Timer (Reloj)

Si desea que una acción suceda con cierta periodicidad, utilice el control Timer. Este control ejecuta el código en su evento Timer en intervalos de tiempo definidos por su propiedad Interval.

Ejercicio: Reloj Digital

Desarrollar una aplicación que muestre la hora actual, actualizándose segundo a segundo.

Private Sub Timer1_Timer()
    ' Hace que la etiqueta parpadee
    Label1.Visible = Not (Label1.Visible)
    ' Si la etiqueta es visible, actualiza la hora
    If Label1.Visible = True Then
        Label1.Caption = Time$
    End If
End Sub

Control Frame (Marco)

Este control permite agrupar y organizar otros controles dentro de un formulario. Es útil para identificar fácilmente un grupo de controles relacionados o para subdividir un formulario funcionalmente.

Control CheckBox (Casilla de Verificación)

Este control presenta una o varias opciones de las que el usuario puede elegir una o más de una. Cada casilla puede estar marcada o desmarcada independientemente de las otras.

Ejercicio: Aplicar Atributos de Texto

Desarrollar una aplicación que permita aplicar atributos de negrita, cursiva y color azul a una cadena de caracteres contenida en un cuadro de texto.

Código para la casilla "Negrita"

Private Sub Check1_Click()
    If Check1.Value = 1 Then ' 1 = Marcado
        Text1.FontBold = True
    Else
        Text1.FontBold = False
    End If
End Sub

Código para la casilla "Cursiva"

Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Text1.FontItalic = True
    Else
        Text1.FontItalic = False
    End If
End Sub

Código para la casilla "Mayúsculas"

Private Sub Check3_Click()
    If Check3.Value = 1 Then
        Text1.Text = UCase(Text1.Text)
    Else
        Text1.Text = LCase(Text1.Text)
    End If
End Sub

Código para la casilla "Color Azul"

Private Sub Check4_Click()
    If Check4.Value = 1 Then
        Text1.ForeColor = QBColor(1) 'Color azul
    Else
        Text1.ForeColor = QBColor(0) 'Color negro
    End If
End Sub