Membuat MDI Child pada sebuah Form

Sebuah MDIForm dapat dibuat dari sebuah Form biasa, Yaitu dengan cara mengatur properties IsMdiContainer pada Form tersebut diubah menjadi True
Sebuah Form dapat diatur menjadi MDIChild bagi sebuah MDIForm melalui coding program. Aturan penulisannya sebagai berikut
Contoh :
Form2.MdiParent = Form1
atau juga bisa menggunakan code seperti dibawah ini
Dim anakwin As New Form3()
anakwin.MdiParent = Me
anakwin.Show()
Pada contoh coding program diatas, sebuah Form bernama Form2 diatur agar menjadi MDIChild bagi sebuah MDIForm bernama Form1
untuk lebih jelasnya bisa melihat code program dibawah // tapi ingat !! Pada Form1 yg digunakan sebagai menu utamanya IsMdiContainer pada Form tersebut diubah menjadi True

[Visual Basic.NET] Membuat MDI Child pada sebuah Form

[Visual Basic.NET] Membuat MDI Child pada sebuah Form

Membuat desain form sebagai tampilan

[Visual Basic.NET] Membuat MDI Child pada sebuah Form

Untuk code program bisa dilihat dibawah ini
——————————– Public Class Form1
Private Sub NewDocumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewDocumentToolStripMenuItem.Click
Dim anakwin As New Form2()
anakwin.MdiParent = Me
anakwin.Show()
End Sub
Private Sub Page2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Page2ToolStripMenuItem.Click
Dim anakwin As New Form3()
anakwin.MdiParent = Me
anakwin.Show()
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseAllToolStripMenuItem.Click
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
End Class