Berpindah antar TextBox dengan tombol Enter selain Tab

Sebelumnya saya cerita dulu ya...(terinspirasi dari salah satu forum singkawang.us-> Jelasin nge- Hack laptop yang ditinggal pemiliknya via knopix aja kayak bikin novel puanjaang hi.. hi.. kayak susah-susah amat.)
Tahun 2008 lalu saya beli buku VB.NET, salah satu tips yang diberikan adalah menggunakan event handler. Bagus sih, cuma agak kuramg sreg. Masalahnya ya itu.. inti ilmunya cuma enam baris, eh dibikin tiga halaman!

Berikut enam baris tersebut:

dim ctrX as control
For Each ctrX in form1.Controls
   If TypeOf (ctrX) is TextBox then
      ctrX.Text = ""
   End If
Next

Tapi ada baiknya juga... tanpa browsing internet, jadilah code di program-ku seperti ini:

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ctr As Windows.Forms.Control
        For Each ctr In Me.GroupBox3.Controls
            If TypeOf (ctr) Is TextBox Then
                AddHandler ctr.KeyUp, AddressOf Assign
            End If
        Next
    End Sub


    Sub Assign(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If Not e.KeyCode = Keys.Enter Then
            Exit Sub
        End If
        SendKeys.Send(vbTab)
    End Sub

Code tersebut akan meletakkan cursor pada TextBox berikutnya jika menekan tombol enter "instead of" tombol Tab.
Lumayankan ketimbang menuliskan Code disetiap event TextBox yang jumlahnya buaanyak (katakanlah 20).
Oh ya, biar gak dibilang Novel, sekian dulu. Semoga bermanfaat.

Yopibest©2009