Docstoc

membuat-pop-up-menu-klik-kanan-visual-basic-60

Document Sample
membuat-pop-up-menu-klik-kanan-visual-basic-60 Powered By Docstoc
					Membuat Pop Up Menu Klik Kanan, Visual Basic 6.0

Written by Administrator
Friday, 05 September 2008 04:47 - Last Updated Thursday, 11 September 2008 02:44




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




                                                                                          1/3
Membuat Pop Up Menu Klik Kanan, Visual Basic 6.0

Written by Administrator
Friday, 05 September 2008 04:47 - Last Updated Thursday, 11 September 2008 02:44




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




pada menu letak menu pada menumenu seperti berikut Name
Perhatikan editor buatlah struktur editor,
 fonts
 …jenis
 …….biru
 …….hijau
 ……merah
 ….color
 ....-
 …….26
 ……18
 ……14
 ……8
 …size Letak
 ……tahoma
 ……stop                 Tahoma
                        Biru
                        Hijau
                        Merah
                        Stop
                        -
                        26
                        18
                        14
                        8
                        Size
                        Fonts Capton
                        Jenis
                        Color               Mnujenis
                                           Mnupisah2
                                           Mnubiru
                                           Mnuhijau
                                           Mnumerah
                                           Mnucolor
                                           mnupisah
                                           Mnu26
                                           Mnu18
                                           Mnu14
                                           Mnu8
                                           Mnusize
                                           Mnufonts
                                           Mnustop
                                           Mnutahoma




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




                                                                                     2/3
Membuat Pop Up Menu Klik Kanan, Visual Basic 6.0

Written by Administrator
Friday, 05 September 2008 04:47 - Last Updated Thursday, 11 September 2008 02:44




Pop Up Hasnan !!!kita mengklik kanan obyek lain seperti label,button dan lainya.Menu tidak
SelamatMenu hanya
akan muncul  ketika muncul jika kita lakukan event klik kanan pada form, Pop Up
Oleh  : Mencoba
Ahmad
hasnanpos@telkom.net




                                                                                       3/3

				
DOCUMENT INFO
Categories:
Tags:
Stats:
views:562
posted:5/21/2010
language:Indonesian
pages:3