Tecla ENTER y foco control
Publicado por Ramón (3 intervenciones) el 20/05/2006 12:50:47
Hola a todos...
Estoy haciendo una prueba con un formulario muy sencillo que sólo contiene un cuadro de texto y un botón.
Cuando pulso una tecla dentro del cuadro de texto, muestro el código ANSI correspondente a la tecla pulsada (A, B, INTRO, ESC, #, etc) por medio de la siguiente instrucción:
Private Sub CuadroTexto_KeyPress(KeyAscii As Integer)
'Muestro el valor ANSI de la tecla pulsada.
MsgBox KeyAscii
End Sub
Cuando, por ejemplo, pulso una tecla correspondiente a una letra, me aparece el mensaje con el código que corresponde a dicha letra (así A = 65). Ahora bien, cuando pulsto la tecla ENTER o INTRO, no aparece tal mensaje, ya que el cuadro de texto pierde el foco y queda enfocado el botón.
¿Cómo puedeo conseguir que el evento KeyPress detecte que he pulsado ENTER o INTRO y me saque el mensaje sin que el cuadro de texto pierda el foco?
Saludos
Ramón
Estoy haciendo una prueba con un formulario muy sencillo que sólo contiene un cuadro de texto y un botón.
Cuando pulso una tecla dentro del cuadro de texto, muestro el código ANSI correspondente a la tecla pulsada (A, B, INTRO, ESC, #, etc) por medio de la siguiente instrucción:
Private Sub CuadroTexto_KeyPress(KeyAscii As Integer)
'Muestro el valor ANSI de la tecla pulsada.
MsgBox KeyAscii
End Sub
Cuando, por ejemplo, pulso una tecla correspondiente a una letra, me aparece el mensaje con el código que corresponde a dicha letra (así A = 65). Ahora bien, cuando pulsto la tecla ENTER o INTRO, no aparece tal mensaje, ya que el cuadro de texto pierde el foco y queda enfocado el botón.
¿Cómo puedeo conseguir que el evento KeyPress detecte que he pulsado ENTER o INTRO y me saque el mensaje sin que el cuadro de texto pierda el foco?
Saludos
Ramón
Valora esta pregunta
0