VB.NET: ToolStrip Control

ToolStrip Control adalah object control pada VB.NET yang digunakan untuk membuat ToolBar. Pada toolbox terdapat pada bagian Menus & Toolbar. Double click untuk menambahkannya pada Form.

Control akan menempel pada bagian atas Form.

 

Terdapat 8 jenis kontrol yang dapat ditambahkan pada toolstrip.

Sebagai permulaan kita akan coba membuat tombol-tombol untuk CRUD yaitu Save, Edit, Delete, Cancel, dan Close. Berikan focus pada toolstrip kemudian klik tombol dropdown dan pilih button. Seperti gambar diatas.
Tambahkan 3 buah Button kemudian 1 buat SplitButton, lalu tambahkan lagi 2 buah Button. Secara default display akan berupa image.

Ubah DisplayStyle jadi ImageAndText untuk semua button, dengan cara klik kanan pada button --> DisplayStyle --> ImageAndText

Sampai berupa seperti gambar dibawah.

Ubah text setiap button dengan nilai yang mewakili, menggunakan jendela Properties.

Ubah juga property (name) dengan nama yang mewakili agar mempermudah saat membuat code.

Selanjutnya kita akan memasang gambar/image pada setiap button. Klik kanan pada button bersangkutan kemudian pilih Set Image...

Akan muncul dialog untuk memilih gambar. Kali ini Rani pilih mengambil gambar dari file yang diimport, jadi pilih option Local resource kemudian klik Import...

Pilih file gambar, kemudian klik tombol Open...

Setelah gambar yang dipilih tampil klik OK.

Gambar terpilih akan menjadi icon button, lakukan hal yang sama untuk button lainnya.

Hasilnya seperti gambar dibawah ini.

Berikut ini contoh sederhana penulisan code untuk ToolStrip Control
Private Sub tbrSave_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrSave.Click
    MsgBox("Save Button Clicked")
End Sub

Private Sub tbrEdit_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrEdit.Click
    MsgBox("Edit Button Clicked")
End Sub

Private Sub tbrDelete_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrDelete.Click
    MsgBox("Delete Button Clicked")
End Sub

Private Sub tbrCancel_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrCancel.Click
    MsgBox("Cancel Button Clicked")
End Sub

Private Sub tbrClose_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrClose.Click
    Me.Close()
End Sub

Click here if you like this article.