Cara Membuat Toolbar VB6

Kali ini saya ingin berbagi Mengenai Cara membuat Toolbar di VB6, untuk membuat toolbar anda harus manambahkan komponen, karena pada tampilan awal kontrol toolbar belum ditampilkan, caranya, klik menu Project > Components maka Muncul :

Pilih dan Cari Microsoft Windows Common Controls 6.0 (SP6) Seperti gambar diatas, Selanjutnya klik OK maka pada Toolbox akan tampil tambahan beberapa kontrol seperti Listview, Imagelist, Toolbar, dll.

klik kontrol Toolbar pada toolbox dan drag pada form, maka akan muncul toolbar kosong pada form atas, nah untuk gambar ikon pada toolbar anda anda drag kontrol Imagelist pada toolbox ke form, Selanjutnya klik kanan pada Imagelist dan pilih Properties, maka tampil seperti ini :

Pilih tab Images dan klik insert Picture, sebaiknya pilih dan gunakan gambar kecil, yaitu file ico, maka setiap gambar ikon yang masuk memiliki index, index digunakan untuk menampilkan pada toolvar gambar mana yang akan dipilih, kemudian klik ok. Selanjutnya klik kanan pada toolbar dan pilih properties, maka akan tampil Properties toolbar pada tab general di ImageList pilih Imagelist1 atau imagelist yang kita buat tadi dan pada tab Button :

gambar diatas adalah tampilan propery toolbar pada tab button, Button juga memiliki index digunakan untuk mengetahui tombol mana yang diklik, klik Insert Button untuk menambahkan Tombol, Caption adalah nama Pada Tombol, pada kotak Image isikan dengan nomor index pada imagelist untuk memberikan gambar ikon, dan bisa langsung klik ok.

ini cara penulisan kode untuk tombol :

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index 'pilih brdasarkan Index Tombol
    Case 1
    'Kode Untuk tombol dengan Index 1
        MsgBox "Anda Mengklik Toolbar pada Index 1"
    Case 2
    'Kode Untuk tombol dengan Index 2
        MsgBox "Anda Mengklik Toolbar pada Index 2"
    Case 3
    'Kode Untuk tombol dengan Index 3
        MsgBox "Anda Mengklik Toolbar pada Index 3"
    Case 4
    'Kode Untuk tombol dengan Index 4
        MsgBox "Anda Mengklik Toolbar pada Index 4"
End Select
End Sub

Semoga ini bermanfaat dan bisa membantu bagi anda yang sedang memulai belajar VB6, silahkan juga lihat tutorial VB6 lainya pada label VB6, Terima kasih.