Visual Basic.NET How to Program (PDF)

574 Graphical User Interfaces Concepts: Part 2 Chapter 13
69
70 ' create new child
71 childWindow = New FrmChild(imagePath, "Child3")
72 childWindow.MdiParent = Me ' set parent
73 childWindow.Show() ' display child
74 End Sub ' mnuitmChild3_Click
75
76 ' exit application
77 Private Sub mnuitmExit_Click(ByVal sender As System.Object, _
78 ByVal e As System.EventArgs) Handles mnuitmExit.Click
79
80 Application.Exit()
81 End Sub ' mnuitmExit_Click
82
83 ' set cascade layout
84 Private Sub mnuitmCascade_Click(ByVal sender As System.Object, _
85 ByVal e As System.EventArgs) Handles mnuitmCascade.Click
86
87 Me.LayoutMdi(MdiLayout.Cascade)
88 End Sub ' mnuitmCascade_Click
89
90 ' set TileHorizontal layout
91 Private Sub mnuitmTileHorizontal_Click( _
92 ByVal sender As System.Object, ByVal e As System.EventArgs) _
93 Handles mnuitmTileHorizontal.Click
94
95 Me.LayoutMdi(MdiLayout.TileHorizontal)
96 End Sub ' mnuitmTileHorizontal_Click
97
98 ' set TileVertical layout
99 Private Sub mnuitmTileVertical_Click( _
100 ByVal sender As System.Object, _
101 ByVal e As System.EventArgs) Handles mnuitmTileVertical.Click
102
103 Me.LayoutMdi(MdiLayout.TileVertical)
104 End Sub ' mnuitmTileVertical_Click
105
106 End Class ' FrmUsingMDI
Fig. 13.37 MDI parent-window class (part 3 of 4).