Como Moverse en los componentes textbox?

prueba con:

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyData = Keys.Enter Then

SendKeys.Send("{TAB}")

End If



End Sub



Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"

"Anderson Noyola" <Anderson escribió en el
mensaje news:

Por favor si alguien pude ayudarme a saber cual es el codigo para moverme
en
los componetes textbox que no se con el tab para moverme de un componente
a
otro y que no sea programando cada textbox el key = 13, quiero un codigo
generar en el form que me pueda ser utils para todos los textbox.

Anderson Noyola wrote:

Por favor si alguien pude ayudarme a saber cual es el codigo para moverme
en los componetes textbox que no se con el tab para moverme de un
componente a otro y que no sea programando cada textbox el key = 13,
quiero un codigo generar en el form que me pueda ser utils para todos los
textbox.

Puedes usar el metodo GetNextControl que devuelve el siguiente control que
recibirá el foco cuando se pulse tab:

'Con Form1.KeyPreview=true

Private Sub Form1_KeyDown (byval sender as object, byval e as keyEventArgs)
Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter AndAlso Me.Controls.Count>0 Then
Dim ctrl as Control = Me.ActiveControl
ctrl = Me.GetNextControl(ctrl, True) 'hacia adelante
If ctrl.CanFocus AndAlso ctrl.TabStop Then
ctrl.Focus
End if
End if
End Sub

dentro del Form_KeyDown y con la propiedad KeyPreview=True del form, puedes
usar algo así:

Select Case e.KeyCode
Case Windows.Forms.Keys.Return, Windows.Forms.Keys.Down
Do
If IsNothing(Me.GetNextControl(Me.ActiveControl, True)) Then
Exit Do
End If
Me.GetNextControl(Me.ActiveControl, True).Focus()
Loop Until Me.ActiveControl.GetType Is GetType(TextBox)
Case Windows.Forms.Keys.Up
Me.GetNextControl(Me.ActiveControl, False).Focus()
End Select

Un saludo
Oscar Montesinos
"Anderson Noyola" <Anderson escribió en el
mensaje news:

Por favor si alguien pude ayudarme a saber cual es el codigo para moverme
en
los componetes textbox que no se con el tab para moverme de un componente
a
otro y que no sea programando cada textbox el key = 13, quiero un codigo
generar en el form que me pueda ser utils para todos los textbox.

Revisado:
Select Case e.KeyCode

Case Windows.Forms.Keys.Return, Windows.Forms.Keys.Down

Do

If
IsNothing(Me.GetNextControl(Me.ActiveControl, True)) Then

Exit Do

End If

Me.GetNextControl(Me.ActiveControl,
True).Focus()

Loop Until Me.ActiveControl.GetType Is
GetType(TextBox)

Case Windows.Forms.Keys.Up

Do

If
IsNothing(Me.GetNextControl(Me.ActiveControl, False)) Then

Exit Do

End If

Me.GetNextControl(Me.ActiveControl,
False).Focus()

Loop Until Me.ActiveControl.GetType Is
GetType(TextBox)

End Select
Un saludo
Oscar Montesinos

"DosFlores" escribió en el mensaje
news:

dentro del Form_KeyDown y con la propiedad KeyPreview=True del form,
puedes usar algo así:

Select Case e.KeyCode
Case Windows.Forms.Keys.Return, Windows.Forms.Keys.Down
Do
If IsNothing(Me.GetNextControl(Me.ActiveControl, True))
Then
Exit Do
End If
Me.GetNextControl(Me.ActiveControl, True).Focus()
Loop Until Me.ActiveControl.GetType Is GetType(TextBox)
Case Windows.Forms.Keys.Up
Me.GetNextControl(Me.ActiveControl, False).Focus()
End Select

Un saludo
Oscar Montesinos
"Anderson Noyola" <Anderson escribió en
el mensaje news:

Por favor si alguien pude ayudarme a saber cual es el codigo para moverme
en
los componetes textbox que no se con el tab para moverme de un componente
a
otro y que no sea programando cada textbox el key = 13, quiero un codigo
generar en el form que me pueda ser utils para todos los textbox.