Menú de Iconos en Formulario MDIParent - Programación Microsoft Visual Basic .Net 2013

En este artículo diseñaremos un menú de iconos intuitivo especialmente diseñado para pantallas táctiles, dentro de un formulario MDIParent en microsoft Visual Studio 2013.

Un formulario MDI Parent en Visual Studio .NET permite agregar todo tipo de controles, pero una buena práctica es sólo tener menús y barras de herramientas para organizar los comandos de la aplicación.
En este artículo crearemos un menú intuitivo utilizando iconos grandes especialmente diseñado para pantallas táctiles.

El formulario MDI Padre creado se muestra en el Diseñador de Formularios Windows con un fondo gris más oscuro que el tradicional fondo gris claro de los formularios Windows.

Puedes descargar el código fuente desde:

https://drive.google.com/open?id=1xJmcNzDTVZyFyPddk6s6kOKPua7iDSvY

Archivos del Proyecto en Visual Basic .Net

En la imagen del lado izquierdo se muestra los archivos que tiene el proyecto desarrollado: Formularios frmInicio: es el formulario MDIParent (Interface de Múltiples Documentos) donde se muestra el menú de iconos. Form1, Form2, Form3: son los formularios SID (Interface de simple Documento) o los formularios Hijos. Clases ocultarIconos.vb: Muestra el código necesario para ocultar los iconos cada vez que se muestra un formulario hijo dentro del formulario padre.

Código de la clase Ocultar Iconos

Public Class ocultariconos

    Sub ocultar()

        frmInicio.PictureBox1.Visible = 0

        frmInicio.PictureBox2.Visible = 0

        frmInicio.PictureBox3.Visible = 0

        frmInicio.PictureBox4.Visible = 0

        frmInicio.PictureBox5.Visible = 0

        frmInicio.PictureBox6.Visible = 0

        frmInicio.PictureBox7.Visible = 0

        frmInicio.PictureBox8.Visible = 0

        frmInicio.PictureBox9.Visible = 0

        frmInicio.PictureBox10.Visible = 0

        frmInicio.PictureBox11.Visible = 0

        frmInicio.PictureBox12.Visible = 0

        frmInicio.PictureBox13.Visible = 0

        frmInicio.PictureBox14.Visible = 0

        frmInicio.PictureBox15.Visible = 0

    End Sub

    Sub mostrar()

        frmInicio.PictureBox1.Visible = 1

        frmInicio.PictureBox2.Visible = 1

        frmInicio.PictureBox3.Visible = 1

        frmInicio.PictureBox4.Visible = 1

        frmInicio.PictureBox5.Visible = 1

        frmInicio.PictureBox6.Visible = 1

        frmInicio.PictureBox7.Visible = 1

        frmInicio.PictureBox8.Visible = 1

        frmInicio.PictureBox9.Visible = 1

        frmInicio.PictureBox10.Visible = 1

        frmInicio.PictureBox11.Visible = 1

        frmInicio.PictureBox12.Visible = 1

        frmInicio.PictureBox13.Visible = 1

        frmInicio.PictureBox14.Visible = 1

        frmInicio.PictureBox15.Visible = 1

    End Sub

 End Class

Código del evento click de los iconos de menú del formulario MDIParent

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        form2.MdiParent = Me

        form2.Show()

        Dim m As New ocultariconos

        m.ocultar()

End Sub

Código del formulario SDI form1

Public Class form2

    Private Sub form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Dim m As New ocultariconos

        m.ocultar()

    End Sub

    Private Sub form2_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate

        Dim m As New ocultariconos

        m.mostrar()

    End Sub

    Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim m As New ocultariconos

        m.ocultar()

    End Sub

End Class

Saludos imperio, un abrazo a la distancia!!!