Tugas ke 5 Membuat Aplikasi Menu dan Tollbar di Visul Basic 2010

Senang sekali saya dapat membuat posting baru dengan adanya tugas dari Pak Nandang. Kali ini saya akan membahas tentang cara membuat aplikasi menu dan toolbar di visual basic 2010. Tidak usah panjang lebar, berikut adalah tampilan utama :

Untuk menghasilkan program seperti di atas kita memerlukan berbagai komponen seperti MenuStrip, ContextMenuStrip, Groupbox . Kemudian akan menghasilkan yang seperti ini :

 

Berikut Penjelasannya :

Untuk membuat Menu kita gunakan MenuStrip yang ada pada Toolbax kemudian isikan satu-satu sperti Latihan, Tugas, Posisi dan Keluar. Untuk lebih jelas liat gambar di bawah 

Di dalam menu kita dapat menampilkannya dengan dua cara yaitu dengan mengklik atau bisa juga dengan cara mengklik Ctrl + 1 untuk menampilkan Latihan 1, cara ini juga dapat digunakan untuk menu yang lainnya dengan cara (Ctrl + . . . ). Dan untuk mengisikan perintah tersebut kita harus mencarinya di properties kemudian cari yang ShortcutKeys isikan pada modifiers, centak pada Ctrs kemudian key kita pilih angka 1. Agar lebig jelasnya saya tampilkan gambarnya :

 

Dan pada saat Latihan 1 di tekan akan menghasilkan seperti berikut :

 

Supaya form tersusun rapi kita gunakan menu Posisi, di dalam menu posisi terdapat pilihan Cascade, Vertikal, dan Horizontal . Jika di pilih akan menghasilkan seperti berikut :

Posisi Cascade 

 

Posisi Vertikal 

Posisi Horizontal

Kemudian untuk menu Tugas hampir sama seperti menu Latihan bedanya hanya tidak bisa menampilkan form secara bersamaan karena berbeda koding. Berikut printscrennya :

Berikut adalah semua koding programnya :

Public Class Form1

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub

    Private Sub Tugas11ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas11ToolStripMenuItem.Click
        Form2.ShowDialog()
    End Sub

    Private Sub Tugas12ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas12ToolStripMenuItem.Click
        Form3.Show()
    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

    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 HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

End Class