Menu Didalam TextBox
Memperlajari
bahasa pemrograman terkesan menjemukkan dan terlalu banyak teori yang harus
dipelajar. Ternyata hal ini tidak selamanya benar, terutama jika menggunakan
metode belajar yang benar. Selama pembuatan aplikasi yang akan diperkenalkan,
bahasa pemrograman visual basic merupakan bahasa pemrograman yang tergolong
popular dan banyak diminati orang untuk belajar dan membuat berbagai macam
program aplikasi, seprti aplikasi pembukuan, aplikasi swalayan dan masih banyak
yang lainnya implemenatasi dari pemrograman visual basic ini.
Berikut
ini kita akan membahas trik untuk membuat popup menu di dalam komponen TextBox
tanpa perintah API.
1.
Bukalah program Visual Basic 6.0 dan
mulailah dengan form baru. Masukkan sebuah komponen TextBox ke dalam area form.
2.
Klik kanan di dalam area form dan klik Menu Editor.
3.
Buatlah menu seperti yang terlihat pada
gambar diatas, kemudian khusus pada menu Popup
hilangkan tanda cek Visible untuk
menyembunyikan tampilan menu.
4.
Kemudian klik ganda komponen Text1 dan ubahlah menjadi prosedur Text1_Change menjadi Text1_MouseDown.
Setelah itu ketiklah perintah seperti dibawah ini :
1
2
3
4
5
6
7
|
Private
Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If
Button = vbRightButton Then
Text1.Enabled
= False
PopupMenu
popup
Text1.Enabled
= True
End
If
End
Sub
|
Keterangan
Kode
2
3-5
|
Membuat
perintah kondisi jika terjadi penekanan tombol kanan pada mouse, maka
perintah pada baris 3- 5 akan dieksekusi.
Menonaktifkan
text1 supaya menu popup standar yang terdapat pada TextBox tidak tampil. Menampilkan
popup menu dan mengaktifkan komponen text1.
|
Untuk melihat hasilnya
tekan tombol f5 pada keyboard anda.
Demikianlah contoh trik
untuk membuat menu popup pada visual basic, semoga tutorial ini dapat membantu
teman – teman sekalian dalam membuat program.
EmoticonEmoticon