Kreasi Menu pada Visual basic 6

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  
   
   Sumber: http://bloglieken.blogspot.com/2011/08/membuat-menu-pada-visual-basic-60.html