VB Tutorial - Membuat Pop Up Menu dengan Visual Basic 6.0

  Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus yangditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasisuatu 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 “TestFungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menueditor, 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:

 
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

Tips dan Trik IlmuKomputer.com
Copyright©2003 IlmuKomputer.com
By: Ahmad Hasan 
Email : hasnanpos@telkom.net

Posted in: Popup,Tugas,Visual Basic 6.0