Visual Basic - Utilizar la tecla ENTER para pasar de textos en textos

Life is soft - evento anual de software empresarial
 
Vista:

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por EdvinTGF (2 intervenciones) el 19/08/2018 06:28:54
Quisiera Poder Utilizar la tecla ENTER para pasar de textos en textos
Ejemplo tengo el cursor en el Texto1 y quiero que al presionar la tecla enter me lleve al Texto2 y así sucesivamente
Ejemplo Gráfico Pero no Me funciona
1
2
3
4
5
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Thisform.Text2.SetFocus
    End If
End Sub
Nesesitu Su Ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 11
Ha aumentado su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por David (16 intervenciones) el 19/08/2018 17:35:12
Prueba sacandole el Thisform

asi: Text2.SetFocus

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por EdvinTGF (2 intervenciones) el 19/08/2018 23:19:57
Ya lo probé y no resulta lo coloque así también al inicio y busque ese códigos aparte y tampoco me funciona
1
2
3
4
5
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub

No me lleva el cursor al siguiente campo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por Antoni Masana (558 intervenciones) el 20/08/2018 07:25:13
Tienes una cosa más simple que es la propiedad de los objetos que se llama TabIndex que le indica el orden de los objetos.

Cuando entra en un formulario se coloca en el que tiene el TabIndex a CERO y va saltando en orden ascendente tanto con el ENTER como con el TAB.

Para qué inventar la rueda cuando ya está inventada.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de gilman
Val: 594
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por gilman (359 intervenciones) el 20/08/2018 08:46:21
En VB6 la tecla Enter no proboca el desplazacimiento del foco al siguiente control, solo lo hace la tecla Tab.
La solución pasa porque en cada textbox poner el código:
1
2
3
4
5
6
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    If KeyAscii = 13 Then
        SendKeys "{TAB}"
    End If
End Sub
y que la propiedad TabIndex esté correctamente establecida
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por Hector Moran (1 intervención) el 21/08/2018 02:35:25
como lo dijo Masana, tienes que usar la propiedad tab index y colocar el orden en que quieres navegar a traves de los campos, pero tambien es cierto que la tecla enter no genera un CR, par ello tienes que colocar la rutima que te señalo Gilman y muy importante tienes que buscar la propieda ]Keyprewiew del formulario y colocar en true, como lo haces le das boton derecho sobre el formulario selccionas propieades y te presentara la propiedades del formulario y pones la propiedad en true..espero te te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 42
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Utilizar la tecla ENTER para pasar de textos en textos

Publicado por RMejia (22 intervenciones) el 05/12/2018 01:30:05
No se si ya lo resolviste pero yo lo hago asi:

1
2
3
4
5
Private Sub Text1.Text(Index As Integer, KeyCode As Integer, Shift As Integer)
     If KeyCode = 13 Then
         SendKeys "{TAB}", True
     End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar