Tugas 7 Pemograman Visual

cpa ja boleh

Digunakan untuk mengorganisasikan semua Form dan laporan pada aplikasi yang dibuat, Sehingga dapat di panggil dengan mudah

Jenis menu

2 contoh menu Mdi child

Menu Strip

Biasa disebut menu utama

Menu Context

Menu yang di aktifkan dengan click kanan

Cukup dengan koding yang sederhana seperti berikut :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

End Sub

Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Form2ToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Form3ToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Form1ToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Jika dilajankan akan menjadi seperti berikut :

Gunakan koding sederhana seperti berikut

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles CascadeToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesTileHorizontalToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

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

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Maka jika dijalankan kan seperti berikut

1.CASCADE

2.HORIZONTAL