Visual Basic - Controlar SetFocus con tecla Enter

Hola...Me gustaria controlar el Set Focus a traves de la tecla enter...que yo presione esa tecla y se me vaya desplazando por las cajas de texto en el orden correspondiente de llenado de un formulario...Gracias

Hola, es muy sencilla tu problema, escribe esta instrucción en el evento KeyPress de la caja de texto
Private sub TxT_CAJA_TEXTO_KEY_PRESS (KeyAscii as Integer)
if KeyAscii = 13 then
TXT_PROXIMA_CAJA.Setfocus
end if
endsub

saludo
PD KeyAscii = 13, 13 en codigo ascii es el botón ENTER

Pero mira eso lo tendre que escribir en todas las cajas de textos...porque tambien quisiera que por ejemplo en la ultima caja de texto al precionar enter me fuera a el boton "ACEPTAR" y luega e dar enter en aceptar me fuera a "GUARDAR" me explico?? gracias por tu ayuda

Bueno creo que si tiene que hacerlo en toda las cajas de texto, porque el evento ocurre en esa caja de texto (Bueno asi lo hago yo), y la misma instruccion para mandar el foco a los botones, Btn_Aceptar.setfocus,

Saludos

Ok Gracias entonces por tu ayuda..

Puedes poner los nombres de las Cajas con Index. Por ejemplo 10 Cajas de Caja(1), Caja(2)...

Private Sub Caja_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
' La siguiente linea es para que no haga el sonido de Error de Windows
KeyAscii = 0
If Index < 10 Then
Caja(Index + 1).SetFocus
Else
Guardar.SetFocus
End If
End If
End Sub

Lo utilizo mucho en mis Sistemas para comodidad del Usuario

Disculpa pero ahora estoy empezando a programar soy una novata...le veo logica mas o menos a o que me explicas, pero si no te toma mucho tiepo me gustaria un condigo mas explicito...tomando en cuenta que tengo 4 cajas de texto, luego de llanar a ultima caja, la tecla enter presione el boton "Guardar" y luego de guardar el enter presione "Nuevo Registro"....Me explico...Gracias por tu ayuda...Saludos

Supongamos que tienes 4 cajas de texto y un botón

Para cada caja de texto usas el evento KeyPress

Para el Text1
Private Sub Text1_KeyPress (Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 or KeyAscii=9 then
Text2.SetFocus
else
If KeyAscii=27 then
'pudieras poner que se salga del módulo
Endif
endif
End Sub

Para el Text2
Private Sub Text2_KeyPress (Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 or KeyAscii=9 then
Text3.SetFocus
else
If KeyAscii=27 then
Text1.SetFocus
Endif
endif
End Sub

Para el Text3
Private Sub Text2_KeyPress (Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 or KeyAscii=9 then
Text4.SetFocus
else
If KeyAscii=27 then
Text2.SetFocus
Endif
endif
End Sub

Para el Text4
Private Sub Text4_KeyPress (Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 or KeyAscii=9 then
Command1_Click
' para que ejecute el código de pulsar el botón.... o si acaso
' quieres mandar el foco pues pon Command1.SetFocus
else
If KeyAscii=27 then
Text3.SetFocus
Endif
endif
End Sub

Lo del 9 en la pregunta IF es para que igual te funcione el tabulador como enter... pero para esto debes de poner la propiedad TABINDEX o TABSTOP.. no me acuerdo cual era.... de todos tus componentes como FALSE

Esto último no estoy muy seguro... pero ponlo por si acaso ves que no te funciona bien...

Saludos

Utiliza TextBox en lugar de los Text. Comprobaras qeu hacieendo Enter en uno de ellso se ira al sigueinte Tab sin necesidad de escribir codigo. suerte

Coloca la propiedad KeyPreview del Form en True y agrega éste código:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

Reemplaza cada pulsación de Enter por Tab (que se utiliza para cambiar de foco entre objetos). No importa la cantidad de cuadros de texto o botones.

ESPECTACULAR....Increible las sugerencias son muy buenas...Gracias a todos...Saludos..Tambien estoy a la orden...

Se nota cuando alguien domina un tema
Muchas gracias por tu ayuda
No sabes cuanto trabajos me ahorraste

Saludos
Daniel