Senin, 21 Januari 2013

Berpindah Antar Text Box Menggunakan Enter

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
Reactions: