Jika terdapat 3 TextBox pada program anda bisakah berpindah ke TextBox lain dengan menekan ENTER?
Jika programnya belum dibuat ya belum bisa bukan? Nah program visual basic net untuk memfokuskan control yang lain saat suatu control di ENTER berikut ini :
Misal terdapat 3 TextBox
Kursor aktif di TextBox1, sehingga akan di ENTER di TextBox1 akan berpindah ke TextBox2, maka pada layar design anda harus double click TextBox1, kemudian pilih Event Keypress sehingga menjadi berikut ini :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
End Sub
Ketikkan perintah berikut :
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
Sehingga menjadi berikut ini :
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
End Sub
End Class
Penjelasan
Dim Tombol As Integer berguna untuk mendefinisikan variabel tombol sebagai jenisnya Integer dan kemudian di isikan nilai ASC dari karakter yang ditekan ( Asc(e.Keychar) )
If Tombol = 13 Then, berguna untuk membandingkan apabila yang ditekan yaitu tombol ENTER (13 untuk mewakili ASC dari ENTER), apabila ENTER yang ditekan, maka TextBox2 di Fokuskan dengan perintah TextBox2.Focus()
Jika programnya belum dibuat ya belum bisa bukan? Nah program visual basic net untuk memfokuskan control yang lain saat suatu control di ENTER berikut ini :
Misal terdapat 3 TextBox
Kursor aktif di TextBox1, sehingga akan di ENTER di TextBox1 akan berpindah ke TextBox2, maka pada layar design anda harus double click TextBox1, kemudian pilih Event Keypress sehingga menjadi berikut ini :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
End Sub
Ketikkan perintah berikut :
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
Sehingga menjadi berikut ini :
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
End Sub
End Class
Penjelasan
Dim Tombol As Integer berguna untuk mendefinisikan variabel tombol sebagai jenisnya Integer dan kemudian di isikan nilai ASC dari karakter yang ditekan ( Asc(e.Keychar) )
If Tombol = 13 Then, berguna untuk membandingkan apabila yang ditekan yaitu tombol ENTER (13 untuk mewakili ASC dari ENTER), apabila ENTER yang ditekan, maka TextBox2 di Fokuskan dengan perintah TextBox2.Focus()
Sumber : Mesran.net
