#vb.net - Ejemplos Matematicos con MDI

' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/
' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO
' Autor: A.K.Freeman

Public Class MDIPrincipal

    'Evento al cargar la ventana
    Private Sub MDIPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try para evitar errores en la compilacion.
        Try
            'Se asigna icono a la ventana MDI
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\button_ok.ico")
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try

    End Sub

    'Evento al hacer clic en el item del menu Multiplicar
    Private Sub MULTIPLICARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MULTIPLICARToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica que la ventana MDIPrincipal es un MDI para FrmMul
            FrmMul.MdiParent = Me
            'Se solicita abrir la ventana FrmMul
            FrmMul.Show()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#2'")
        End Try

    End Sub

    'Evento al hacer clic en el item del menu Dividir
    Private Sub DIVIDIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DIVIDIRToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica que la ventana MDIPrincipal es un MDI para FrmDiv
            FrmDiv.MdiParent = Me
            'Se solicita abrir la ventana FrmDiv
            FrmDiv.Show()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#3'")
        End Try

    End Sub

    'Evento al hacer clic en el item del menu Triangulo
    Private Sub PLANAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PLANAToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica que la ventana MDIPrincipal es un MDI para FrmTri
            FrmTri.MdiParent = Me
            'Se solicita abrir la ventana FrmTri
            FrmTri.Show()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#4'")
        End Try

    End Sub

    'Evento al hacer clic en el item del menu ´Rectangulo
    Private Sub ESPACIALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ESPACIALToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica que la ventana MDIPrincipal es un MDI para FrmRec
            FrmRec.MdiParent = Me
            'Se solicita abrir la ventana FrmRec
            FrmRec.Show()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#5'")
        End Try

    End Sub

    'Evento al hacer clic en el item del menu Salir
    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRToolStripMenuItem.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica cerrar la ventana MDIPrincipal
            Me.Close()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#6'")
        End Try

    End Sub

End Class