Membuat Pop Up Menu dengan Visual Basic 6.0

Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Ahmad Hasnan
hasnanpos@telkom.net
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan
secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus
atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap
dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin
terlebih dahulu dari IlmuKomputer.Com.
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

Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
pada menu editor buatlah struktur menu seperti berikut
Letak
fonts
…size
……8
……14
……18
…….26
....-
….color
……merah
…….hijau
…….biru
....-
…jenis
……tahoma
……stop
Caption
Fonts
Size
8
14
18
26
-
Color
Merah
Hijau
Biru
-
Jenis
Tahoma
Stop
Name
Mnufonts
Mnusize
Mnu8
Mnu14
Mnu18
Mnu26
mnupisah
Mnucolor
Mnumerah
Mnuhijau
Mnubiru
Mnupisah2
Mnujenis
Mnutahoma
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

Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
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
Perhatian
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 !!!