Cara Membuat Menu Pop Up di VB6

Berikut adalah cara membuat menu pop up di VB6 / yang kita sering kenal dengan Visual Basic 6 :
Download Visual Basic 6 Portable

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.

Thank's for reading the articelCara Membuat Menu Pop Up di VB6 .If You want to copy paste your website please tag my link Cara Membuat Menu Pop Up di VB6 Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/11/MenuPopupVB6.html">Cara Membuat Menu Pop Up di VB6</a>