Membuat Status Bar pada VB 6.0

Toolbar adalah salah satu kontrol yang bisanya digunakan untuk meletakkan tombol, untuk memakai toolbar berikut adalah langkah-langkahnya :

1. Menambahkan components dengan nama : Microsoft Windows Common Control 6.0. Cara menambahkannya klik menu project + components dan centang Microsoft Windows Common Control 6.0 lalu klik OK.
2. Pada toolbox terdapat kontrol toolbar, tambahkan kontrol toolbar ke dalam form setelah ditambahkan klik kanan dan pilih Properties lihat gambar berikut :
   
   
3. Setelah Properties diklik maka akan muncul window seperti gambar di bawah ini, untuk menambahkan keterangan tulisan pada tombol dan keterangan-keterangan lainnya atur pada setiap propertinya.
   
   
4. Tombol yang ditambahkan ke toolbar hasilnya bisa dilihat pada gambar dibawah ini, tetapi belum ada gambarnya iconnya.
   
   

Dalam membuat toolbar diatas belum disertai gambar icon, untuk menambahkan gambar icon kita harus menambahkan Image List terlebih dahulu.

Menambahkan Image List
Image List adalah kontrol yang dipakai untuk menyimpan daftar gambar.
Untuk menambahkan gambar ke dalam image list adalah sebagai berikut :

1. Tambahkan Image List ke dalam Form, klik kanan dan pilih properties. Lihat gambar di bawah ini :
   
   
2. Masukkan image susuai keinginan anda
   
   

Menambahkan gambar icon ke dalam toobar
berituk adalah langkah-langkahnya :

1. Klik kanan toolbar pilih properties
2. Pada kotak dialog Property Pages tab General dari toolbar pilih ImageList dengan ImageList1 (nama dari image list anda)
   
   
3. Pada kotak dialog Property Pages tab Button tabahkan angka urut gambar pada ImageList1, lihat gambar berikut :
   
   
4. Setelah gambar icon ditambahkan hasilnya bisa dilihat seperti gambar di bawah ini :
   
   

Contoh kode programnya sebagai berikut

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
    Load login
    login.Show
End If
If Button.Index = 2 Then
    message = MsgBox("Yakin akan logout ?", vbQuestion + vbYesNo)
    If message = vbYes Then
        induk.Toolbar1.Buttons(1).Enabled = True
        induk.Toolbar1.Buttons(2).Enabled = False
        For n = 1 To induk.MenuUtama.UBound
            induk.MenuUtama(n).Enabled = False
        Next
        induk.MenuUtama(1).Enabled = True
        induk.MenuUtama(5).Enabled = True
        induk.menuFile(1).Enabled = True
        induk.menuFile(2).Enabled = False
        induk.menuFile(4).Enabled = True
        induk.menuFasilitas(1).Enabled = False
        induk.menuFasilitas(2).Enabled = False
        induk.menuFasilitas(4).Enabled = True
        induk.menuKlikKanan.Enabled = False
        For n = 1 To induk.MenuKlik.UBound
            induk.MenuKlik(n).Enabled = False
        Next
        UnloadAllForms (Me.Name)
    End If
End If
If Button.Index = 3 Then
    message = MsgBox("Yakin akan keluar dari program?", vbQuestion + vbYesNo)
    If message = vbYes Then
        End
    End If
End If
If Button.Index = 4 Then
End If
If Button.Index = 5 Then
    Load info_jadwal_supervisi
    info_jadwal_supervisi.Show
End If
If Button.Index = 6 Then
End If
If Button.Index = 7 Then
    Load info_data_sekolah
    info_data_sekolah.Show
End If
If Button.Index = 8 Then
    Load info_data_guru
    info_data_guru.Show
End If
If Button.Index = 9 Then
    Load setting_Server
    setting_Server.Show
End If
End Sub

SELESAI...

Posted in: VB