MDI Form with Menus VB .NET Program

Description:     

      

MDI (Multiple Document Interface) form, in which we can view and work with several documents at once. With this application corresponding child window is displayed the sub menu item is clicked, all child windows will be arranged when you click Arrange Child Windows menu item.

MDI_Menu.vb

Public Class MDI_Menu

    Dim childform As Integer = 0

    Dim childforms(3) As customer_details

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

        Dim mdichild As New Data_entry

        mdichild.MdiParent = Me

        mdichild.Show()

    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

        Dim mdichild As New customer_details

        mdichild.MdiParent = Me

        mdichild.Show()

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

        Dim mdichild As New orderdetails

        mdichild.MdiParent = Me

        mdichild.Show()

    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

        End

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

        While childform <= 3

            childforms(childform) = New customer_details

            childforms(childform).Text = "childform" & Str(childform)

            childforms(childform).MdiParent = Me

            childforms(childform).Show()

            childforms(childform).Label1.Text = "This is child window" & Str(childform)

            childform += 1

        End While

    End Sub

End Class

OUTPUT

Contact:

Mr. Roshan P. Helonde

Mobile: +91-7276355704

WhatsApp: +91-7276355704

Email: roshanphelonde@rediffmail.com