|
Visual Basic -
Tips dan Trik Visual Basic
|
|
Kadang-kadang Anda ingin menampilkan sebuah menu dengan klik kanan pada sebuah objek. Menu seperti inilah yang disebut PopUp Menu. Caranya sangat mudah. - Buatlah sebuah menu dengan menu editor, lalu nonaktifkan pilihan visible yang terdapat pada kotak dialog menu editor. Yang harus diperhatikan adalah, pilihan visible ini hanya non aktif untuk menutitle-nya saja, sedangkan untuk setiap menuitem, pilihan visible ini harus tetap aktif.
- Kemudian gunakan event mouse down pada objek yang Anda inginkan untuk menampilkan PopUp Menu, lalu tambahkan sintaks sebagai berikut: PopUpMenu menutitle
- 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.
|
