Berpindah antar text box dengan hanya menggunakan enter dapat mempermudah dan menghemat waktu dalam meng-input-kan data pekerjaan kita (ini pengalaman gw ketika memposting form dari interface ke server waktu gw kerja sebagai tukang posting), disini juga kita bisa mendeteksi apakah text box tersebut masih kosong atao sudah terisi. Cekibrot contoh source-nya
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1 <> "" And KeyCode = 13 Then
'jika teks 1 kosong maka kursor tidak berpindah, jika di tekan enter baru perpindah
Text2.SetFocus
ElseIf Text2 <> "" And KeyCode = 13 Then
Text3.SetFocus
ElseIf Text3 <> "" And KeyCode = 13 Then
Text4.SetFocus
ElseIf Text4 <> "" And KeyCode = 13 Then
Command1.SetFocus
End If
End Sub
Donlot source-nya di https://sites.google.com/site/suryakubiwa/Pindah_dgn_Enter.rar?attredirects=0
atao di http://www.4shared.com/rar/fZl2ugj0/Pindah_dgn_Enter.html