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
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
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 !!!
Tidak ada komentar:
Posting Komentar