Penggunaan Keypress pada Visual Basic Net 2008

      Disini Saya akan menjelaskan bagaimana cara penggunaan tombol keypress pada Vb 2008.

kalau biasanya kita menggunakan Event Click dan mengikutsertakan Button  pada Vb 2008 untuk menghasilkan Event yang kita inginkan muncul di Textbox lain,Disini dengan menggunakan Event Keypress,kita hanya perlu menekan ENTER ,maka Event yang kita inginkan akan muncul di Textbox yang lain.

                      Misal terdapat 2 TextBox

Kursor aktif di TextBox1, sehingga akan di ENTER di TextBox1 akan muncul ke TextBox2, maka pada layar design anda harus double click TextBox1, kemudian pilih Event Keypress sehingga menjadi berikut ini :

Buat Design dulu ya !!!

Double Click Pada Textbox1

 

Pada Event TextChanged pilih Event Keypress

 Maka Akan muncul tampilan seperti Di atas.

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()