Que tal,

El proyecto que tengo es hacer una calculadora.. utilizando dos textbox... pero quiero agilizar el cambio de text1 a text2 solo oprimiendo enter... para poder trabajar con uno de esos teclados para laptops que solo tienen los numeros y no tienen la tecla TAB....

Espero y me puedan ayudar.


Saludos.

Usa la propiedad setfocus

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

Hola:

Tienes otra solución que puede ayudarte que es poniendo la propiedad KeyPreview del Formulario a True y despues ...

Código:

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

De este modo no tienes que preocuparte a que Text mandas el Foco

Muchas gracias por sus respuestas...

Lo intente de las dos formas y si me funciono.. pero tengo un error...
tento 2 texbox y despues 2 command button

Si brinca de text1 a text2... y de text2 a command1.....todo muy bien... el problema es cuando quiero que pase de command1 a command2...

Esto es lo que tengo

Código:

Private Sub n1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then n2.SetFocus
End Sub
Private Sub n2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1.SetFocus
End Sub
Private Sub command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command2.SetFocus
End Sub

Gracias

Acabo de hacer una prueba porque nunca se me hubiera ocurrido capturar el KEYPRESS en un command y me parece que no funciona ya que no tiene ningun sentido

El INTRO sobre un Command ejecuta la función Command_Click() por lo que deberás buscar una alternativa.

Si quieres que el Intro vaya sobre el Command ¿ Como conseguirás después pulsar el Command ?

Tienes un muy buen punto...

Hay un numero para la tecla + porque puedo sustituir el enter por esa tecla...

En donde puedo conseguir todos los numeros de todas las teclas???

Alguien tendra una lista que me pueda facilitar...

Muchas Gracias.

Si no quieres complicarte la vida, puedes utilizar la funcion Asc(Caracter) que te devuelve el valor Ascii de la Tecla pero cuidado que existen KeyAscii y KeyCode que no devuelven lo mismo.

MsgBox Asc("+") Te devuelve 43 pero esto creo que ya lo estas complicando porque si quieres que sume con la tecla + ¿ para que le pones un command ? teniendo en cuenta que cuando está sobre el command no te acepta el Enter

Personalmente creo que en el KeyPress del Form puedes controlar mejor ya que te lee la tecla antes de que la reciba el objeto y entonces si que podrías actuar en consecuencia, sin embargo piensa que para ello debes saber en todo momento sobre que control estás situado.