Membuat PopUp Menu dengan VB 6.0
Posted by Devz Andrean | Posted in Visual Basic |
Apa yang terjadi jika lo meng-klik kanan mouse lo ? Pasti akan muncul pilihan Arrange Icons By..,Refresh, Paste, dan temen-temennya. Di program lo, lo juga bisa buat popup menu seperti itu. Yang muncul pastinya pilihan-pilihan yang ada didalam program lo.
Pengen tau cara bikinnya ? Liat kebawah yuk..^_^
1. yang pastinya lo jalanin aplikasi Visual Basic lo dulu
2. kita asumsikan lo udah buat menu utama seperti gambar dibawah ini
3. kemudian klik 2x pada area form yang kosong, ubah procedure menjadi MouseDown
tambahkan listing berikut :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu mnFile
End If
End Sub
tambahkan listing berikut :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu mnFile
End If
End Sub
<membuat popup menu dengan meng-klik kanan mouse>
4. jalankan program (tekan F5)
5. klik kanan pada area form yang kosong, maka lo akan liat hasilnya.
wah bsa buat tambahan program ane gan.. thanks gan... hehe.. ijin nyimak...
@indra >> silahkan gan, thanks dah visit ^_^
gan,, ane mnta tlng nih.. ane kan lg ngrjain TA nih ane jg sama kaya ente.. bingung bkin paper'y apalg bab 2 yg kutipan"..
tlng ksih refrensi dong gan kalo ane bwt program ttg pnjualan.. yg ente bkin itu dftar pustaka'y buku'y kya gmna ya??takut'y klo d'tanya cover buku'y gak tau ane kelabakan.. hehehehe..
thx gan..
yang butuh source code pemrograman visual klik ya http://itbangkep.files.wordpress.com/2011/10/iklan-primasoftware1.pdf