I-BEGO

"terima kasih sebelumnya untuk admin yang telah bersedia menampilkan kasus saya ini:
dalam berpindah dari satu textbox ke textbox lainnya secara otomatis (tanpa menuliskan perintah di tiap textbox) dalam satu form saya bisa gunakan:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
AddHandler ctrl.KeyPress, AddressOf enterkey
End If
Next
End Sub

Private Sub enterkey(ByVal sender As Object, ByVal e As KeyPressEventArgs)
If e.KeyChar = ChrW(Keys.Enter) Then
Dim oNextControl As System.Windows.Forms.Control = Me.GetNextControl(CType(sender, Control), True)
oNextControl.Focus()
End If
End Sub

tetapi ketika textbox-textbox tersebut saya letakkan di atas sebuah TabControl maka fungsi di atas tidak dapat dijalankan. Kalau perintah pindahnya dituliskan di tiap textbox bisa banyak banget (102 an textbox). Saya dah berusaha utak-atik, tapi gak ketemu caranya. Oleh karena itu mohon pencerahan agan2 sekalian ya.....terima kasih.

permasalahannya ada di dimana parent control dari textbox tersebut.
coba aja cek terlebih dahulu

Code: Select all

MsgBox(TextBox1.Parent.Name)

Code: Select all

For Each ctrl As Control In Me.Controls  'ganti me.controls ini dengan parent dari si textbox


atau untuk cek semua textbox dalam 1 form bisa kaya gini.

Code: Select all

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    checkControl(Me)
End Sub

Public Sub checkControl(ByVal parent As Control)
    For Each ctl As Control In parent.Controls
            If TypeOf ctl Is TextBox Then
                AddHandler ctl.KeyPress, AddressOf enterkey
            Else
                If ctl.HasChildren Then
                    checkControl(ctl)
                End If
            End If
    Next
End Sub

Hope this help

keereeen, terima kasih alfa.