Membuat Menu Pop Up Pada Vb

Tips dan Trik IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com

Membuat Pop Up Menu dengan Visual Basic 6.0 Ahmad Hasnan [email protected]

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 !!!