Menu Bar dan Main From

MENU BAR dan MAIN FROM

Menubar

          Menubar adalah balok yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi.

Menu Strip

              Untuk membuat menu pada form kita dapat menggunakann komponen pada ToolBox berupa MenuStrip, biasanya menu digunakan untuk akses fitur-fitur dari aplikasi yang kita buat dan ditempatkan pada form utama suatu progra. Bayangkam jika fitur yang kita buat dalam sebuah program begitu banyak dan kompleks, maka tidak mungkin bagi kita menggunakan control berupa Button atau sejenisnya kedalam tubuh Form karena akan memperjelek tampilan dari Form utama itu sendiri. Untuk menagtasi hal tersebut maka kita dapat mengunakan komponen MenuStrip untuk menampilkan semua fitru dengan tampilan dorpdown menu dari bagian atas form.

Membuat Garis Batas Antar SubMenu

-  Klik tanda panah pada Type Here

-  Pilih Separator

Membuat Shortcut Key Pada Menu

-           Pilih (klik) Menu yang akan diberikan shortcut key nya

-           Pada jendela Properties, pilih ShortcutKeys

-           Atur kombinasi shortcutkey nya.

 Mainform

Maninform merupakan sebuah form yang dijadikan form induk tempat untuk mengakses form-form lainnya.

Contoh Program

Buatlah desain from seperti dibawah ini

Kode Program

Public Class Form1

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

        MsgBox("Keluar Form")

        Application.Exit()

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub LAPORANPEGAWAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANPEGAWAIToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub LAPORANGAJIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANGAJIToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

End Class