Membuat Pop Up Menu Klik Kanan, Visual Basic 6.0

Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus yang
ditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasi
suatu obyek (event mouse over),atau saat kita mengklik kanan mouse. Tips kali ini membahas
bagaimana membuat menu yang tampil ketika mouse mendapat event klik kanan (event right click).
Langkah – langkah pembuatan Pop Up menu adalah :

Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar,
Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :

ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test
Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu
editor, pertama klik menu Tools (Alt + T) pilih menu editor

cara kedua adalah klik kanan pada obyek form lalu pilih menu editor

pada menu editor buatlah struktur menu seperti berikut

Letak Capton Name
fonts Fonts Mnufonts
…size Size Mnusize
……8 8 Mnu8
……14 14 Mnu14
……18 18 Mnu18
…….26 26 Mnu26
….- - mnupisah
….color Color Mnucolor
……merah Merah Mnumerah
…….hijau Hijau Mnuhijau
…….biru Biru Mnubiru
….- - Mnupisah2
…jenis Jenis Mnujenis
……tahoma Tahoma Mnutahoma
……stop Stop Mnustop

Perhatikan letak menu pada menu editor,

masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts ‘memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 ‘
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ‘ warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ‘ warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 ‘warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = “tahoma”
End Sub
Private Sub mnustop_Click()
Label1.FontName = “Stop”
End Sub
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut

Pop Up Menu hanya muncul jika kita lakukan event klik kanan pada form, Pop Up Menu tidak akan muncul ketika kita mengklik kanan obyek lain seperti label,button dan lainya.

Selamat Mencoba !!!

Thanks for reading & sharing BLOG FANS