Klik Kanan Untuk Menampilkan Menu (Pop Up Menu)

Baca Juga

Sebenarnya sudah banyak artikel tentang tutorial ini, tetapi mungkin tidak ada salahnya jika saya ulas lagi, lumayan buat update postingan, hehehe... monggo disimak.

1. Membuat menu

Yang memang betul-betul belum pernah membuat menu sebelumnya silakan simak ulasan singkatnya disini [http://vbjadul.wordpress.com/2010/06/02/cara-membuat-menu-pada-visual-basic-6-0/] 

Tambahkan sebuah form ke project VB 6 Anda, atau gunakan form yang sudah ada, klik kanan pada form, pilih Menu Editor.

Kemudian susun seperti contoh dibawah ini :

Mengapa menu harus disusun bertingkat?

Karena menu dengan tingkat tertinggi yang akan kita panggil saat coding (dengan klik kanan) dan apabila menu tersebut tidak memiliki level dibawahnya akan terjadi bug dengan command dibawah ini saat menu tersebut dipanggil.

2. Coding Memanggil menu dengan klik kanan


Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

If Button And vbRightButton Then

    PopupMenu mnuListPopup  

End If
End Sub

3. Coding Memanggil menu dengan tombol menu "pada keyboard"


Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 93 Then

    PopupMenu mnuListPopup  

End If
End Sub

Keterangan : code yang berwarna merah adalah nama (name) dari menu yang akan kita panggil menggunakan kilk kanan atau tombol menu, sesuaikan dengan menu Anda dengan men-cocok-kannya dengan menu editor.

 
Demikian semoga bermanfaat.

Contoh source code : 
http://www.ziddu.com/download/19513844/popmenu.rar.html