Caranya Hampir Sama Dengan Posting Sebelumnya
Yaitu Membuat Menu Terlebih Dahulu ..
LAngsung Aja Ke TKP..............
Kita Lihat Pada Atas Form Akan Terlihat Menu File
Kita Akan Menghilangkan Tampilan Menu Tersebut,
Tapi Tidak Menghilangkan Isi Dari Menu Tersebut..
Dengan Cara Hilangkan Centang Pada Visible.............
Nah Itu Untuk Menghilangkan Tampilan Menu ..
••>>) Sekarang Kita Akan Membuat Menu Pada Klik Kanan..
CaraNya :
•)Sediakan Semangkuk Tai Panas Serta
Bumbu Balado Lengkap Dengan Bawang Rebus
Cuman Bercanda
•)kita Pastekan Kode Berikut Di Form
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnFile 'memanggil menu menjadi pop up menu'
End If
End Sub
Beres Deh Untuk Membuat Menu Klik Kanan Pada Form
••>>) Sekarang Menu Di Tombol..
•)CaraNya Tuliskan Pada Tombol
Misalkan "
Private sub Command1_click()
PopupMenu MnFile
End Sub
Selesai Deh..!!!!!!!
Selamat Berkreasi
Yaitu Membuat Menu Terlebih Dahulu ..
LAngsung Aja Ke TKP..............
Kita Lihat Pada Atas Form Akan Terlihat Menu File
Kita Akan Menghilangkan Tampilan Menu Tersebut,
Tapi Tidak Menghilangkan Isi Dari Menu Tersebut..
Dengan Cara Hilangkan Centang Pada Visible.............
Nah Itu Untuk Menghilangkan Tampilan Menu ..
••>>) Sekarang Kita Akan Membuat Menu Pada Klik Kanan..
CaraNya :
•)Sediakan Semangkuk Tai Panas Serta
Bumbu Balado Lengkap Dengan Bawang Rebus
Cuman Bercanda
•)kita Pastekan Kode Berikut Di Form
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnFile 'memanggil menu menjadi pop up menu'
End If
End Sub
Beres Deh Untuk Membuat Menu Klik Kanan Pada Form
••>>) Sekarang Menu Di Tombol..
•)CaraNya Tuliskan Pada Tombol
Misalkan "
Private sub Command1_click()
PopupMenu MnFile
End Sub
Selesai Deh..!!!!!!!
Selamat Berkreasi
0 komentar:
Posting Komentar