10 diciembre, 2023

Todo Programación

Cursos, código fuente y ejemplos.

Visual Basic 6 – Capítulo 09 – Gestión de formularios

3 minutos de lectura
Visual Basic 6 Capítulo 9, Gestión de formularios
banner vb6

Los formularios son componentes esenciales en la creación de interfaces de usuario en aplicaciones desarrolladas en Visual Basic 6. En este capítulo, exploraremos cómo abrir y cerrar formularios, así como cómo pasar variables entre diferentes formularios en Visual Basic 6. Estos conceptos son fundamentales para la creación de aplicaciones interactivas y funcionales que permiten a los usuarios interactuar con los datos de manera efectiva.

1. Apertura y Cierre de Formularios

1.1 Uso del Método Show

En Visual Basic 6, puedes abrir un formulario utilizando el método Show. Este método hace que el formulario sea visible para el usuario. Por ejemplo:

Private Sub CommandButton_AbrirForm_Click()
    Form2.Show
End Sub

1.2 Uso del Método Unload

Para cerrar un formulario, puedes utilizar el método Unload. Este método descarga el formulario de la memoria y lo cierra. Por ejemplo:

Private Sub CommandButton_CerrarForm_Click()
    Unload Form2
End Sub

2. Paso de Variables entre Formularios

2.1 Utilizando Propiedades Públicas

Puedes pasar variables de un formulario a otro utilizando propiedades públicas en el formulario de destino. Las propiedades públicas se definen en la sección General Declarations del formulario.

En Formulario 1:

Public Variable1 As Integer

Private Sub CommandButton_PasarVariable_Click()
    Variable1 = 42
    Form2.Show
End Sub

En Formulario 2:

Private Sub Form_Load()
    Label_ValorVariable.Caption = Form1.Variable1
End Sub

2.2 Uso de Parámetros en Subrutinas

Otra forma de pasar variables entre formularios es mediante el uso de parámetros en subrutinas. Puedes crear una subrutina en el formulario de destino y pasarle los valores como argumentos.

En Formulario 1:

Private Sub CommandButton_PasarVariable_Click()
    Dim variable1 As Integer
    variable1 = 42
    Form2.MostrarValor variable1
    Form2.Show
End Sub

En Formulario 2:

Public Sub MostrarValor(ByVal valor As Integer)
    Label_ValorVariable.Caption = valor
End Sub

2.3 Uso de Variables Globales

Otra técnica es el uso de variables globales que pueden ser accedidas desde cualquier parte del código. Aunque esta técnica puede ser útil, es importante usarla con precaución para evitar problemas de mantenimiento y seguridad.

Public VariableGlobal As String

Private Sub CommandButton_PasarVariable_Click()
    VariableGlobal = "Hola desde Formulario 1"
    Form2.Show
End Sub

3. Ejercicios Prácticos Resueltos

3.1 Ejercicio 1: Calculadora de Dos Formularios

Crea un formulario principal con dos botones: «Abrir Calculadora» y «Cerrar». Cuando se haga clic en «Abrir Calculadora», se abrirá un segundo formulario con botones numéricos y operadores para realizar cálculos. La calculadora debe mostrar los resultados en el formulario principal.

Solución:

Formulario Principal:

Private Sub CommandButton_AbrirCalculadora_Click()
    CalculadoraForm.Show
End Sub

Formulario de la Calculadora:

Private Sub CommandButton_Numero_Click()
    TextResultado.Text = TextResultado.Text & CommandButton_Numero.Caption
End Sub

Private Sub CommandButton_Suma_Click()
    operando1 = CDbl(TextResultado.Text)
    operador = "+"
    TextResultado.Text = ""
End Sub

' ... Otros botones de operación ...

Private Sub CommandButton_Igual_Click()
    operando2 = CDbl(TextResultado.Text)
    
    If operador = "+" Then
        TextResultado.Text = operando1 + operando2
    ElseIf operador = "-" Then
        TextResultado.Text = operando1 - operando2
    End If
    
    ' ... Código para otras operaciones ...
End Sub
</code>

3.2 Ejercicio 2: Registro de Usuarios

Crea un formulario de registro de usuarios que solicite nombre y correo electrónico. Al hacer clic en «Registrarse», los datos deben pasarse a un segundo formulario que muestre un mensaje de bienvenida con el nombre registrado.

Solución:

Formulario de Registro:

Private Sub CommandButton_Registrarse_Click()
    NombreUsuario = TextBox_Nombre.Text
    CorreoUsuario = TextBox_Correo.Text
    BienvenidaForm.Show
End Sub

Formulario de Bienvenida:

Private Sub Form_Load()
    Label_Bienvenida.Caption = "¡Bienvenido, " & NombreUsuario & "!"
End Sub

4. Conclusiones

En este capítulo, has aprendido cómo abrir y cerrar formularios en Visual Basic 6 y cómo pasar variables entre ellos. Estos conocimientos son esenciales para crear aplicaciones interactivas y funcionales que permitan a los usuarios interactuar con los datos de manera efectiva.


Copyright © Todos los derechos reservados. | Newsphere por AF themes.