Contoh Listing VB : Tips Pop Up Menutittle

Ingat, dengan menggunakan event mouse down, tombol mouse yang diklik bisa ditangkap dengan mengambil nilai tertentu dari parameter button. Untuk tombol kanan mouse, nilai parameter button adalah 2.

Contoh:

Buatlah sebuah form, tambahkan menu dan kontrol Picture Box ke dalamnya. Isi menu dan gambar terserah Anda. Jangan lupa untuk menonaktifkan check box visible pada menu editor untuk menutitle-nya. Pada kontrol picture box tambahkan kode seperti pada listing 1.



Listing 1. Event MouseDown pada Picture1



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


If Button = 2 Then



PopupMenu mnuFile



End If



End Sub




Jalankan aplikasi tersebut. Menu akan muncul jika Anda mengklik kanan kontrol Picture Box.