Membuat Menu Pada Visual Basic 6.0

Hampir kebanyakan aplikasi database menggunakan menu. Menu terbagi atas dua jenis menu, yang pertama pull-down menu dan yang kedua pupup menu.

Pull-Down Menu
Pull-down menu adalah menu yang kelihatan di menu utama, yang biasanya terletak di paling atas form induk aplikasi. Seperti gambar di bawah ini :

Untuk membuat menu pull-down seperti gambar diatas, caranya sebagai berikut :

1. Klik tombol menu editor pada toolbar
   
   
2. Setelah tombol menu editor di klik maka akan tampil jendela menu editor seperti gambar di bawah ini :
   
   
   Isikan Caption, Name, dan Index.
   perlu di ketahui index berguna untuk membedakan satu menu dengan menu yang lain apabila nama menu sama. penempatan nama menu yang sama harus pada kedudukan yang sama juga.
   
   
3. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :
   

   Private Sub menuFile_Click(Index As Integer)
   Select Case Index
   Case 1
       Load login
       login.Show
   Case 2
       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
   Case 4
       message = MsgBox("Yakin akan keluar dari program?", vbQuestion + vbYesNo)
       If message = vbYes Then
           End
       End If
   End Select
   End Sub
   

Pop-Up Menu
Menu pop-up menu adalah menu yang tidak kelihatan oada form. Untuk melihatnya biasanya kita harus klik kanan pada mouse terlebih dahulu.

Untuk membuat menu pop-up menu berikut adalah langkah-langkahnya :

1. Masuk ke menu editor sama seperti membuat pull-down menu.
2. Isi Menu yang akan di tampilkan sebagai pop-up menu, lihat gambar di bawah ini :
   
   
3. Pada menu utama atau menu induk, properti Visible harus dihilangkan seperti gambar di atas. Ingat pada menu utamanya saja.
4. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :
   

   Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
       If Button = 2 Then
           PopupMenu menuKlikKanan
       End If
   End Sub
   
   Private Sub MenuKlik_Click(Index As Integer)
   Select Case Index
   Case 1
       Load data_guru
       data_guru.Show
   Case 2
       Load data_sekolah
       data_sekolah.Show
   Case 4
       Load info_jadwal_supervisi
       info_jadwal_supervisi.Show
   Case 5
       Load pilih_bagian
       pilih_bagian.Show
   Case 7
       Load ganti_password
       ganti_password.Show
   End Select
   End Sub
   

Posted in: VB