Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Pindah Textbox Dengan Enter Pada Event KeyPress VB.Net

Halo sobat Coding, Banyak para programmer pemula pada umumnya mengandalkan tombol tab untuk berpindah dari textbox satu ke textbox lainnya dalam form, namun ada waktunya programmer menginginkan hasil sempurna dalam program yang mereka hasilkan, akhirnya kebanyakan memutuskan untuk Pindah Textbox Dengan Enter Pada Event KeyPress VB.Net menggantikan fungsi tombol tab.

cara pindah textbox dengan event keypress vb.net  345x500 Pindah Kursor waktu Tekan Enter di VB.Net Pindah Komponen di Form pada VB.Net Event KeyPress Untuk Pindah Textbox di VB.Net

Cara Pindah Textbox Dengan Enter Pada Event KeyPress VB.Net

Listing kode nya sebagai berikut gan :

Private Sub txtKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKode.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtNopol.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtNopol_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNopol.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtType.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtType_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtType.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtTahun.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtTahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTahun.KeyPress
e.Handled = CumaAngka(Asc(e.KeyChar))
If e.KeyChar = Chr(13) Then

Me.txtTglPajak.Focus() ‘contoh untuk pindah antar kontrol pada text box

End If
End Sub

Private Sub txtTglPajak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTglPajak.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtAtasNama.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtAtasNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAtasNama.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtPemakai.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtPemakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPemakai.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtUnit.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtUnit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUnit.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtResort.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtResort_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtResort.KeyPress
If e.KeyChar = Chr(13) Then
Me.txtKet.Focus() ‘contoh untuk pindah antar kontrol pada text box
End If
End Sub
Private Sub txtKet_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKet.KeyPress
If e.KeyChar = Chr(13) Then
btnSimpan_Click(sender, AcceptButton) ‘contoh Klik tombol button
End If
End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme