Menangkap Tombol Enter Dengan Visual Basic
Dalam pembuatan program, user friendly merupakan syarat utama untuk keterpakaian kegiatan kita, dalam memakai sebuah aplikasi, biasanya untuk perpindahan antar isian (text box) pengguna yang awam lebih cenderung memakai tombol enter.
pada pola disamping ada 3 buah isian text, untuk arahan nasabah (txtKode), nama nasabah (txtNama), dan alamat (txtAlamat), biasanya sehabis mengisi arahan nasabah maka pengguna akan menekan tombol enter untuk pindah ke nama nasabah, sehabis akibat dengan itu akan kembali menekan tombol enter untuk alamat nasabah. begitu seterusnya yang terjadi.
Sedangkan settingan default untuk visual basic perpindahan antar kontrol, dalam hal ini textbox dilakukan dengan memakai tombol tab, logikanya kini yakni bagaimana caranya, kalau user menekan tombol enter, yang dijalankan yakni tombol tab, bukan begitu?
Tab Index
Pertama yang harus kita set yakni property tab index, properti ini ada pada masing-masing control yang ada pada form. Tab index berfungsi untuk memilih urutan-urutan pementingan tombol tab, jadi contohnya kita set nama nasabah dengan tabindex=2, sedangkan alamat dengan tabindex=3, maka dikala form sedang aktif pada nama nasabah, dikala kita tekan tombol tab, kegiatan secara otomatis memindahkan focus cursor pada control dengan tabindex yang lebih besar. Dalam hal ini tentu saja pindahnya yakni ke textbox alamat.
Tab index dimulai dari basis 0, jadi setlah txtkode.tabindex=0, txtnama.tabindex=1, dan txtalamat.tabindex=2, ubahlah melalui jendela property saja.
Key Preview
Penekanan tombol, bersama-sama dimulai pada control yang aktif, jadi contohnya kalau kita sedang aktif pada txtalamat, yang pertama kali mengetahui pementingan tombol yakni txtalamat. Namun ada property key preview pada form yang dapat dimanfaatkan, biar pementingan tombol pertama kali tidak dibaca oleh kontrol yang aktif, tetapi oleh form, kalau kita membaca pementingan tombol pada setiap kontrol berarti setiap kontrol harus kita buat kodenya dong, boros kan....
Aturlah properti .Keypreview pada form menjadi True, setting defaultnya yakni false
Coding
1: Private Sub Form_KeyPress(KeyAscii As Integer)
2: If KeyAscii = 13 Then
3: SendKeys "{tab}"
4: KeyAscii = 0
5: End If
6: End Sub
berikutnya kita harus menambahkan coding diatas kedalam form, event yang dipakai yakni event KeyPress, event keypress artinya dikala sebuah tombol ditekan pada form, dan sebab keyPreview sudah kita set dengan true maka walaupun kursor bukan berada pada form, tetapi pada textbox, perintah ini tetap akan terbaca (berlaku kebalikan kalau keypreview tidak diset dengan true
Baris kedua mengindikasikan kita mengusut tombol yang ditekan oleh pengguna, kalau keyAscii yang ditekan pengguna yakni 13 berarti pengguna telah menekan tombol enter. baris ke 3 kegiatan merupakan inti yang kita jelaskan diatas, mengirimkan perintah pementingan tombol tab dengan memakai fungsi sendkeys. selanjutnya pada baris ke 4 kegiatan kita mengeset keyascii=0 biar tombol enter tersebut tidak terekam pada kontrol teks, atau kontrol lainnya.
EmoticonEmoticon