Top Ad unit 728 × 90

Recientes

recent

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!!!
Menú de Iconos en Formulario MDIParent - Programación Microsoft Visual Basic .Net 2013 Reviewed by IncanatoIt-ad on 21:23 Rating: 5

2 comentarios:

Todos los derechos reservados www.IncanatoIT.com - Desarrollando Software © 2014 - 2019
Desarrollado por Blogger, Designed by Sweetheme
IncanatoIt.com. Con la tecnología de Blogger.
y>