Cara Membuat dan Mengaktifkan Tombol Enter Untuk Berpinpindah Antar Komponen

Senang rasanya berbagi pengalaman tentang bahasa pemrograman visual basic, di tutorial sebelumnya saya membahas cara membuat sintax simpan,edit, hapus dan keluar. Untuk itu di tutorial ketiga ini saya ingin membahas tentang "Cara Membuat dan Mengaktifkan Tombol Enter Untuk Berpinpindah Antar Komponen" dimana tombol enter digunakan untuk berpindah ke antar komponen, misalnya TextBox1 ingin kita pindahkan ke TextBox2 dengan menekan tombol enter. Untuk itu perhatikan dan pahami sintaxnya, tutorial ini cukup mudah untuk dipahami soalnya sintaxnya juga tidak terlalu banyak.

Untuk form desainnya gunakan form yang kita desain pada tutorial sebelumnya, agar tidak bingung, ini next dari tutorial "cara membuat database dengan microsoft access terbaru 2015 dan cara membuat sintax simpan, edit, hapus di visual basic". Agar tidak ngambang dan bingung, perhatikan dan baca artikel ini.

Next tutorial
pertama-tama buka form yang sebelumnya kita desain

Cara Membuat dan Mengaktifkan Tombol Enter Untuk Berpinpindah Antar Komponen

Tampilan form sebelum di isikan sintax Event KeyPress

Tampilan form setelah di isikan sintax Event KeyPress dengan menekan tombol enter kursor akan pindah ke komponen berikutnya.

Mungkin ada yang bertanya "Bagaimana caranya", Next..

liat gambar di bawah ini dan perhatikan

Tampilan cara mengaktifkan tombol Event KeyPress pada TextBox txtnama

Pertama double klik pada TextBox txtnama setelah itu ganti Change dengan KeyPrees dan isikan sintaxnya, untuk TextBox selanjutnya caranya sama. Tinggal anda focuskan saja kursornya mau pindah ke komponen apa. Misalnya TextBoxt ataupun CommandButton.

Untuk Sintaxnya bisa anda lihat di bawah ini

'Sintax KeyPress Txtnama

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

'Sintax KeyPress Txtalamat

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTtl.SetFocus
End If
End Sub

'Sintax KeyPress TxtTtl

Private Sub txtTtl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnohp.SetFocus
End If
End Sub

'Sintax KeyPress Txtnohp

Private Sub txtnohp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdsimpan.SetFocus
End If
End Sub

Tutorial cara membuat event keypress sudah selesai tinggal di paraktikkan saja.. untuk tutorial selanjutnya klik "Menampilkan Components Data Bound Grid Control di Visual Basic"