FoxPro/Visual FoxPro - Aplicacion

 
Vista:

Aplicacion

Publicado por ANDRES SOLANO (4 intervenciones) el 19/04/2006 06:11:35
Tengo un problema cuando se ejecuta alguna aplicaciòn lo que pasa es que el menu que realizamos durante la opcion Menus de >Visual fox Pro.

La cara del Zorro sale, el formulario principal sale pero el problema es en el Menu cuando se ejecuta la Aplicaciòn el Menu que se realizo se avre y se cierra el queda un Menu en Ingles no el que se realizo y el codigo es:

OPEN DATABASE 'base d. saira.dbc'
DO menú1.mpr
DO FORM acceso.scx
read events
close database all
clear all
close all
ON SHUTDOWN
QUIT

Le agradezco
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:Aplicacion

Publicado por neo (296 intervenciones) el 19/04/2006 19:03:51
Agrega el sig codigo

deactivate window "Command"
deactivate window "Estándar"

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
sin imagen de perfil

RE:Aplicacion

Publicado por Ernesto Hernandez (4623 intervenciones) el 19/04/2006 21:41:50
OPEN DATABASE 'base d. saira.dbc'
DO menú1.mpr
DO FORM acceso.scx
ON SHUTDOWN DO closeapp
read events

y crea el procedimiento que cierre tu aplicacion.
Espero te sirva .

PROCEDURE closeapp
DO CASE
CASE _SCREEN.FORMCOUNT>1
MESSAGEBOX("Cerrar Opciones de Menu ...",0+48,"Opciones Abiertas")
RETURN
ENDCASE
DO CASE
CASE CheckActiveForm=0
IF MESSAGEBOX("Cerrar la Aplicación ",292," [Sistemas]")<>6
RETURN
ENDIF
ENDCASE
ON SHUTDOWN
DO CASE
CASE !ISNULL(cBar1)
cBar1.VISIBLE=.F.
CASE CheckActiveForm=0
SET SYSMENU TO DEFA
_SCREEN.CAPTION="Microsoft Visual FoxPro"
ENDCASE
CLEAR EVENTS
CLEAR ALL
SET SYSMENU TO DEFAULT
CANCEL
ENDPROC
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:Aplicacion

Publicado por Pablo Orellana (3 intervenciones) el 20/04/2006 15:10:09
Prueva con el comando
Set sysmenu to
antes de abrir tu menu o puedes guardar tu menu en un .prg y lo ejecutas
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