[VB.NET] 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