0 HOW TO WORK ON MULTIPLE FORM USING MDI IN VB.NET

HOW TO WORK ON MULTIPLE FORM USING MDI IN VB.NET 




Public Class Form1
    Dim a As Integer = 0
    Dim s As Integer = 0
    Dim forms(5) As Form2
    Dim formh(2) As Form3
    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        a += 1
        s += 1
        forms(a) = New Form2
        formh(s) = New Form3
        forms(a).MdiParent = Me
        formh(s).MdiParent = Me
        formh(s).Show()
        forms(a).Show()



    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        a += 1

        forms(a) = New Form2

        forms(a).MdiParent = Me


        forms(a).Show()
    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click

        s += 1

        formh(s) = New Form3

        formh(s).MdiParent = Me
        formh(s).Show()

    End Sub
End Class

Public Class Form1

    Dim a As Integer = 0

    Dim s As Integer = 0

    Dim forms(5) As Form2

    Dim formh(2) As Form3

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

        a += 1

        s += 1

        forms(a) = New Form2

        formh(s) = New Form3

        forms(a).MdiParent = Me

        formh(s).MdiParent = Me

        formh(s).Show()

        forms(a).Show()

    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click

        a += 1

        forms(a) = New Form2

        forms(a).MdiParent = Me

        forms(a).Show()

    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click

        s += 1

        formh(s) = New Form3

        formh(s).MdiParent = Me

        formh(s).Show()

    End Sub

End Class

Public Class Form1

    Dim a As Integer = 0

    Dim s As Integer = 0

    Dim forms(5) As Form2

    Dim formh(2) As Form3

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

        a += 1

        s += 1

        forms(a) = New Form2

        formh(s) = New Form3

        forms(a).MdiParent = Me

        formh(s).MdiParent = Me

        formh(s).Show()

        forms(a).Show()

    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click

        a += 1

        forms(a) = New Form2

        forms(a).MdiParent = Me

        forms(a).Show()

    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click

        s += 1

        formh(s) = New Form3

        formh(s).MdiParent = Me

        formh(s).Show()

    End Sub

End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

    End Sub

End Class