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


|