FoxPro/Visual FoxPro - Abrir Form con T. de Funcion

   
Vista:

Abrir Form con T. de Funcion

Publicado por Amado Garcia Lara (66 intervenciones) el 19/08/2008 15:53:08
Hola... a todos..me da mucho gusto saludarles...

Deseo incluir en mi aplicacion las opciones de abrir los formularios oprimiendo las teclas de funcion.. ejemplo F4 que se abra el form "compras" oprimir la Tecla F5 Abrir el form "Ventas"...

Ahorita dichas opciones forman parte de la "Barra de menu" en la opcion de:
Procesos-> Compras y Procesos-> Ventas

Ademas estan incluidas en ToolBar así...

ADD OBJECT cmdCompras AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH = 45,;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "" , PICTURE = sys(5)+Sys(2003)+"iconsCarrito.ico",;
TOOLTIPTEXT = "Realiza Compras de Contado"

ADD OBJECT cmdVentas AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH = 45,;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "" , PICTURE = sys(5)+Sys(2003)+"iconsdinero.ico",;
TOOLTIPTEXT = "Realiza Ventas al publico en General"

***--- Procedures llamados por los objetos anteriores....-------

PROCEDURE cmdCompras.Click
do form FCompras
ENDPROC

PROCEDURE cmdVentas.Click
do form FVentas
ENDPROC

el usuario que usa el sistema ya no quiere usar tanto el mouse... solo oprimir 1 o 2 teclas para realizar compras y ventas.... je je... je... je.... que flojos verdad...?

Quiero incluir las opciones F4 Para Compras y F5 para ventas...

Espero su ayuda amigos...
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

RE:Abrir Form con T. de Funcion

Publicado por Angel Piedrabuena (88 intervenciones) el 19/08/2008 16:45:52
Mi sugerencia es usar el comando
ON KEY LABEL

ejemplo
ON KEY LABEL F4 DO FORM FCompras
ON KEY LABEL F5 DO FORM FVentas

Espero sirva.
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

RE:Abrir Form con T. de Funcion

Publicado por kong (681 intervenciones) el 19/08/2008 19:04:38
en el formulario principal
en la propiedad .Keypreview=.T.

en la .KeyPress ponga un

Do Case
case nKeyCode=14 (no me acuerdo el codigo ascii de F4)
do form hacercompra
case nKeyCode=15
do form hacerventa
endcase
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