SetFocus (me hace caso), pero es raro :( :( :( :(
Publicado por Juan Miguel (84 intervenciones) el 12/07/2013 19:00:25
Hola a Todos
Aunque Fidel me resolvio la duda (muchas gracias de nuevo), sigue habiendo algo que no esta bien, les cuento, ahora despues del NODEFAULT, como se ve en el codigo de abajo, con flecha arriba/abajo con o sin Mayusculas funciona bien.
Excepto su pulso el Nº 2 o el Nº 8 (da igual que sea del teclado superior, del teclado numerico con o sin el "NumLock" activado, el codigo de tecla que me devuelve es como si hubiese pulsado Flecha arriba/abajo :( :( :(, o sea
Si en el teclado numerico pulso el numero 2, lo que hace el programa es como si hubiera pulsado flecha habajo , y si pulso el nuemro 8 es como si hubiera pulsado flecha arriba (genera ese nKeyCode).
A ver si alguien puede decirme como solucionarlo mientras seguire echando un vistazo a lo que me mando Fidel.
Un saludo
---------------------------------------------------------------------------------
LPARAMETERS nKeyCode, nShiftAltCtrl
With Thisform.PgExpeM.Pg2
Do Case
Case nKeyCode = 5 or nKeyCode = 56
NODEFAULT
.Caja_BlL05C2.setfocus
Case nKeyCode = 24 or nKeyCode = 50
NODEFAULT
.Caja_BlL07C2.setfocus
EndCase
EndWith
----------------------------------------------------------------------------------
Aunque Fidel me resolvio la duda (muchas gracias de nuevo), sigue habiendo algo que no esta bien, les cuento, ahora despues del NODEFAULT, como se ve en el codigo de abajo, con flecha arriba/abajo con o sin Mayusculas funciona bien.
Excepto su pulso el Nº 2 o el Nº 8 (da igual que sea del teclado superior, del teclado numerico con o sin el "NumLock" activado, el codigo de tecla que me devuelve es como si hubiese pulsado Flecha arriba/abajo :( :( :(, o sea
Si en el teclado numerico pulso el numero 2, lo que hace el programa es como si hubiera pulsado flecha habajo , y si pulso el nuemro 8 es como si hubiera pulsado flecha arriba (genera ese nKeyCode).
A ver si alguien puede decirme como solucionarlo mientras seguire echando un vistazo a lo que me mando Fidel.
Un saludo
---------------------------------------------------------------------------------
LPARAMETERS nKeyCode, nShiftAltCtrl
With Thisform.PgExpeM.Pg2
Do Case
Case nKeyCode = 5 or nKeyCode = 56
NODEFAULT
.Caja_BlL05C2.setfocus
Case nKeyCode = 24 or nKeyCode = 50
NODEFAULT
.Caja_BlL07C2.setfocus
EndCase
EndWith
----------------------------------------------------------------------------------
Valora esta pregunta
0