Navegación MDI Windows Forms - Programación en Visual Basic Net con Visual Studio 2013 (25-25)

En este artículo trabajaremos con navegación entre formularios, implementaremos un formulario padre MDI y varios formularios hijos windows forms, veremos los detalles para navegar entre ellos y además enviar parámetros entre un formulario y otro, este ejemplo lo realizaremos en el lenguaje de programación Visual Basic .Net utilizando el IDE Visual Studio.

Pueden ver los vídeos directamente en youtube:

https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m&index=1

Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:
www.youtube.com/jcarlosad7
Gracias por seguir con este Curso completo de Visual Basic.Net desde cero, bienvenidos les sugiero a todos los que se inician a programar aplicaciones Windows Forms que sigan este Tutorial completo.

Navegación entre Formularios Formularios MDI Las aplicaciones MDI (interfaz de múltiples documentos) permiten mostrar varios documentos al mismo tiempo, cada uno de ellos en su propia ventana. Las aplicaciones MDI suelen tener un elemento de menú Ventana con submenús que permiten cambiar entre ventanas o documentos. Navegación entre formularios Show(): Abre un form pero no bloquea al resto, puede abrir varios formularios y acceder a uno u otro indistintamente. ShowDialog(): Muestra un form modal, y mientras no se cierra no se puede acceder a los forms inferiores.

1. Agregar el Proyecto prNavegacionFormularios 2. Agregar el formulario MDI Principal 3. Windows state maximixed 4. Poner fondo al MDI 5. Agregar tres opciones de Menu: Ingresos: Compras, Salidas: Ventas, Clientes



6. Agregar tres formularios: frmCompras, frmVentas, frmClientes.

7. Menú para compras

'Creamos el objeto frm que instancia a la clase frmCompras

        Dim frm As frmCompras = New frmCompras()

        frm.MdiParent = Me

        frm.Show()

8. Menú para clientes

'Creamos el objeto frm que instancia a la clase frmClientes

        Dim frm As frmClientes = New frmClientes()

        frm.MdiParent = Me

        frm.Show()

9. Menú para ventas

'Creamos el objeto frm que instancia a al metodo GetInstancia de la clase frmVentas

        Dim frm As frmVentas = frmVentas.GetInstancia()

        frm.MdiParent = Me

        frm.Show()

10. Código Ventas

Public Class frmVentas

    Public Shared _instancia As frmVentas

    'Creamos una instancia para poder utilizar los 

    'Objetos del formulario 

    Public Function GetInstancia() As frmVentas

        If (_instancia Is Nothing) Then

            _instancia = New frmVentas()

        End If

        Return _instancia

    End Function

    'Creamos un método para enviar los valores recibidos 

    'a la caja de texto Cliente

    Public Sub setCliente(cliente As String)

        Me.txtCliente.Text = cliente

    End Sub

      

    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click

        'Creamos el objeto frm que instancia a la clase frmCliente

        'Llamamos al formulario frmCliente pero como formulario modal

        Dim frmvista As frmCliente = New frmCliente()

        frmCliente.ShowDialog()

    End Sub

   

    Private Sub frmVentas_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing

        _instancia = Nothing

    End Sub

End Class

11. Código Cliente

Public Class frmCliente

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCliente.SelectedIndexChanged

        Dim form As frmVentas = frmVentas.GetInstancia()

        Dim par1 As String = cboCliente.Text

        form.setCliente(par1)

        Me.Hide()

    End Sub

End Class

Navegación MDI Windows Forms (25-25) Programación en Visual Basic Net con Visual Studio 2013

Saludos Imperio, un abrazo a la distancia.