Cara Menampilkan ToolBar pada VB (Visual Basic)

OK kembali lagi dengan saya ILFI JANDRISNO. Sekarang saya akan memberitahukan/ memposting/ berbagi ilmu/ sharing/.......

Baiklah tanpa memperpanjang basa- basi langsung saja kita mulai.

1.       Pertama buka Aplikasi Visual Basic lalu buat Project -Form baru

2.       Sebelum kita membuat toolbar, kita harus menambahkan component nya dulu dengan cara
Klik Menu Project lalu pilih Component atau juga bisa dengan cara cepatnya yaitu dengan menekan tombol CTRL + T

3.       Kemudian akan muncul tampilan jendela Component seperti di bawah ini.
Klik tab Controls lalu cari Microsoft Windows Controls 6.0 (SP6) kemudian OK

4.       Maka pada bagian menu sebelah kiri akan tampil beberapa component tambahan seperti ini

5.       Double Klik menu Toolbar dan imagelist tersebut agar masuk ke dalam form yang kita buat

6.       Klik kanan pada Imagelist lalu pilih Properties

7.       Maka akan tampil jendela seperti dibawah ini

8.       Pilih Tab Image kemudian Klik Insert Picture kemudian pilih beberapa icon yang anda inginkan lalu klik OK . *ingat index pada icon tersebut karena nanti akan dimasukan kedalam toolbar*

9.       Kemudian klik kanan pada toolbar yang dimasukan kedalam Form tadi

10.   Kemudian klik tab General  lalu pada Imagelist pilih ImageList1

11.   Pilih tab Buttons.
Lalu klik tombol Insert Button kemudian masukan Caption , Key dan Image

12.   Jika sudah selesai klik OK.
maka akan tampil Toolbar pada Form seperti dibawah ini :)

Untuk Code nya

1.       Double Klik pada Toolbar yang telah dibuat tadi, maka akan terbuka jendela code nya

Ubah atau ganti tulisan “(ByVal Button As MSComctlLib.Button)” menjadi “(ByVal Toolbar1 As Button)” 

 

2.       Kemudian masukan sintak atau code atau script J nya seperti ini

Select Case Toolbar1.Key

    Case Is = "home"

    Form2.Show

    Unload Me

    Case Is = "back"

    Form3.Show

    Form1.Enabled = False

    Case Is = "keluar"

    Dim pergi

        pergi = MsgBox("Apakah Anda Yakin...!!! ", vbYesNo + vbInformation, "EXIT")

        If (pergi = vbYes) Then

            End

        End If

    Case Is = "help"

    'masukan perintah disini

    Case Is = "stop"

    'masukan perintah disini

    Case Is = "save"

    'masukan perintah disini

End Select

Sebenarnya cara nya cepat cuman penjelasannya aja yang lama :D :D

Selamat mencoba teman-teman TC :)