Menubar

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

MenuStrip

digunakan untuk akses fitur-fitur dari aplikasi yang kita buat dan ditempatkan pada form utama suatu program. Bayangkan 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. 

Menambahkan MenuStrip

            Untuk menambahkan sebuah MenuStrip ke dalam form yang akan kita inginkan, maka kita dapat memilih objek tersebut dari ToolBox yang dikelompokkan pada Menus&Toolbar

Mengatur Item MenuStrip

Untuk menambah dan mengatur item menu pada kontrol MenuStrip dalam form, kita dapat melakukan klik pada bagian paling kiri dari MenuStrip yang akan kita tambahkan sebuah item. Klik pada bagian putih yang memiliki teks tooltips ‘Type Here” lalu ketikan nama menu yang kita inginkan (misalnya “File”)

Untuk menambahkan menu di bawah level menu yang baru kita tambahkan (menu “File”) kita ketikan pada item dari anak menu tersebut (misalnya “Open”).

Menambahkan Sparator

            Pilih objek Separator lalu menuju item selanjutnya yang masih satu level dengan item sebelumnya, kita ketikan “Exit”.

Setelah kita mengatur item-item pada control MenuStrip sebagai menu utama pada aplikasi, sekarang kita akan coba memasukan menuliskan kode jika menu tersebut di pilih oleh user. Caranya sama seperti saat kita menambahkan kode pada objek kontrol lainya. Cukup klik ganda pada item pada MenuStrip yang akan kita tambahkan kodenya.

Untuk mengujinya kita jalankan projek yang baru kita buat tersebut, lalu pilih menu “Exit” yang merupakan anak menu “File”.

Properti penting pada item MenuStirp beserta fungsinya.

ü  Name                    : Mengatur nama objek.

ü  Image                   : Menambahkan sebuah gamar pada objek.

Ø  Checked               : Mengatur atribut cek pada objek.

Ø  ShortcutKeys       : Mengatur tombol shortcut (tombol pintas) pada objek tersebut

Ø  ShowShortcutKeys          : Menampilkan atau tidak tombol pintas untuk menu tersebut.

Ø  Visible                              : Jika bernilai True maa\ka objek akan nampak, jika bernilai False maka objek tidak akan nampak.

ToolStrip

            Unutk membuat sederet atau sekumpulan item yang dapat kita letakan dibagian atas, kiri, kanan, tengah, atau bahkan atau bagian kiri Form aplikasi yang kita buat, kita dapat menggunakan kontrol ToolStrip. Seperti namanya sendiri yaitu ToolStrip dapat menampung item-item berupa objek lainya seperti Button, Label, TextBox, ComboBox, ProgressBar, 

Menambahkan ToolStrip

            Untuk dapat menambahkan ToolStrip pada Form, maka kita pilkih objek ToolStrip pada ToolBox lalu gambarkan pada Form maka secara defaul kontrol tersebut akn berada pada bagian atas Form anda.

Properti penting pada item ToolStrip beserta fungsinya.

ü  Name                    : Mengatur nama objek.

ü  BackColor            : Mengatur warna belakang objek.

Ø  Dock                    : Mengatur posisi objek pada form.

Ø  Items                    : Mengatur item-item pada objek.

Visible             : Jika bernilai True maka objek akan nampak, jika bernilaiFalse maka objek tidak akan nampak

Menambahkan Item

 Menambah Item Pada ToolStrip

            Pilih jenis yang akan kita tambahkan, misalnya kita akan menambahkan item berupa Button maka pilih “Button” pada menu yang muncul.

            Untuk menambahkan item lainnya pada ToolStrip maka kita dapat melakukan hal yang sama sebelumnya lalu pilih jenis item yang kita inginkan. Sehinggan sekumpulan item telah kita tambahkan pada sebuah ToolStrip, berikut adalah ilustrasi dari ToolStrip yang telah ditambahkan berbagai item.

 ToolStrip Dengan Berbagai Jenis Item

Mengatur Item

            Setelah kita dapat menambahkan berbagai item pada ToolStrip maka kita harus mengatur item-item yang kita tambahkan tersebut agar tampilan lebih sesuai yang kita inginkan. Sevelum sampai bab ini tentunya kita telah mempelajari berbagai macam atau jenis item (objek)  yang telah kita tambahkan pada ToolStrip ( Label, Button, ComboBox, TextBox, ProgressBar) sehingga kegunaan dari masing-masing properti untuk mengatur setiap item yang kita tambahkan  sudah Anda  kuasai. Untuk mengatur item pada ToolStrip caranya sama seprti pengaturan item pada kontrol lainya, yaitu dengan memilih objek (item) yang ada pada ToolStrip (yang akan kita atur) lalu kita rubah nilai-nilai pada jendela tersebut.

 Mengatur Salah Satu Item

Membuat Shortcut Key Pada Menu

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

-           Pada jendela Properties, pilih ShortcutKeys

-           Atur kombinasi shortcutkey nya.

Posisi ToolStrip

            Hal lain yang dapat kita lakukan dengan ToolStrip adalah merubah letak atau posisi nya pada Form,Berbagai posisi ToolStrip yang dapat terjadi ketika kita merubah nilai pada properti Dock

Mainform

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

Jadikan Form1 menjadi Form utama dengan mengatur propertise sebagai berikut :

IsMdiContainer = True

WindowState = Maximized

buatlah form-form yang akan dibuka melaluai form utama, misalnya :

contoh program menu form

koding

Public Class FormLogin

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If tusername.Text = "era" And tpassword.Text = "1708" Then
        Else
            MsgBox("Username dan password Anda Salah")
            tusername.Text = ""
            tpassword.Text = ""
            tusername.Select()
        End If
        Form1.Show()
    End Sub

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

End Class
   FORM UTAMA

KODING

Public Class Form1

    Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click

        MsgBox("yakin ingin keluar dari form  ")

        Application.Exit()

    End Sub

    Private Sub DAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAToolStripMenuItem.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 LAPORANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANToolStripMenuItem.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

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

    End Sub

End Class

FORM2  DATA PENGAWAI

KODING

Public Class Form2

    Dim A As Integer

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

        ListView1.Items.Add(tnip.Text)

        ListView1.Items(A).SubItems.Add(tnama.Text)

        ListView1.Items(A).SubItems.Add(cmbjk.Text)

        ListView1.Items(A).SubItems.Add(talamat.Text)

        A = A + 1

    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click

        tnip.Clear()

        tnama.Clear()

        cmbjk.text = ""

        talamat.Clear()

    End Sub

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click

        End

    End Sub

End Class

FORM3 DATA GAJI

KODING

Public Class Form3

    Dim A As Integer

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

        ListView1.Items.Add(tnama.Text)

        ListView1.Items(A).SubItems.Add(cmbjabatan.Text)

        ListView1.Items(A).SubItems.Add(ttotal.Text)

        A = A + 1

    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click

        tnama.Clear()

        cmbjabatan.Text = ""

        ttotal.Clear()

    End Sub

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click

        End

    End Sub

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

    End Sub

    Private Sub cmbjabatan_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjabatan.SelectedIndexChanged

        If cmbjabatan.Text = "Direktur" Then

            ttotal.Text = 5000000

        ElseIf cmbjabatan.Text = "Karyawan" Then

            ttotal.Text = 3000000

        Else

            ttotal.Text = 1500000

        End If

    End Sub

End Class

HASIL PROGRAM FORM3 DATA GAJI

demikian yang bisa saya utarakan semoga bermanfaat.........