MDI FORM

Desain Form 1 seperti dibawah ini

Buatlah 3 form( form 1, form2, form3)

UbahPropertiIsMDIContainerpada form 1menjaditrue

Gunakan Dock pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah.

Untuk Form 2

Codingnya

PublicClassForm2

PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.MdiParent = Form1

EndSub

EndClass

Dan form 3

PublicClassForm3

PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.MdiParent = Form1

EndSub

EndClass

Setelah di Run pada windows kita pilih cascade hasilnya seperti ini:

Dan horisontal seperti ini:

Dan yang terakhir vertikal:

NB:         1. Untuk Ribbon Sementara belum sempurna, karena kendala beberapa hal.

Isi Coding pada form 1::

PublicClassForm1

PrivateSub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

PrivateSub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

EndSub

PrivateSub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

PrivateSub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

PrivateSub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

PrivateSub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

Form2.MdiParent = Me

Form2.Show()

EndSub

PrivateSub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Me.Close()

EndSub

PrivateSub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

EndClass