Tugas VB net form MDI

FORM MDI

Langkah awal yaitu, buka Microsoft Visual Studio 2010.
Buka file pilih New Project, buka Windows Form Application.
Pilih Project, lalu klik Add Windows Form sebanyak 4 kali, dengan begitu kita memiliki 5 Windows Form, yang salah satunya akan kita ubah menjadi Form MDI. 

Untuk membuat tampilan window dengan Tile Horizontal, Tile Vertical , dan Tile Cascade, berikan perintah seperti dibawah ini.
Untuk tampilan Tile Horizontal, double klik pada setiap submenu di menustrip, seperti double klik pada menu barang lalu masukan perintah seperti di bawah ini, begitu seterusnya :

Private Sub menuteam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuteam.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menupteam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menupteam.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menusquad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menusquad.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub menucoach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menucoach.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Tampilan akan seperti ini : 

Tampilan Vertical, caranya sama, hanya diganti pada Me.LayoutMdi(MdiLayout.TileHorizontal) dig anti menjadi Me.LayoutMdi(MdiLayout.TileVertical)

Berikut adalah skripnya :

Private Sub menuCalender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuCalender.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuKlasemen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuKlasemen.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuTopSkor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTopSkor.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub menuBursaTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuBursaTransfer.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Berikut tampilannya : ]

Lalu untuk membuat tampilan window cascade masukan perintah :

Private Sub menuKlasemenserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuKlasemenserieA.Click

Form2.MdiParent = Me

Form2.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menuTeamserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuTeamserieA.Click

Form3.MdiParent = Me

Form3.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menutopskorserieA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menutopskorserieA.Click

Form4.MdiParent = Me

Form4.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub menuSponsor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuSponsor.Click

Form5.MdiParent = Me

Form5.Show()

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Tampilannya akan seperti ini :

 

Dan ini adalah tampilan tool strip yang telah di buat :

 

Untuk membuat library tambahan bias kita gunakan Treeview, pada toolbox, kemudian atur ukurannya, pada properties Dock kita ubah pada posisi left, lalu kita tambahkan node pada properties node.

Klik pada Add Root lalu untuk membuat node childnya klik Add Child, dan ubah pada properties text sesuai nama yang kita inginkan klik Ok.

 
Dan hasil akhirnya adalah sebagai berikut...

Demikian hasil pekerjaan saya...