Information générale
Titre:
Cannot quit Visual Foxpro...agin
Hi Gilverto i had the same problem with my application and y resolved it in this way:
In main.prg I put this line
on shutdown do salir
and in salir.prg I write this:
cMessageTitle = 'Salir del SIG'
cMessageText = 'Está Seguro que desea salir del SIG?'
nDialogType = 4 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
CLOSE ALL
RELEASE WINDOWS
RELEASE ALL
SET ESCAPE ON
QUIT
CASE nAnswer = 7
RELEASE WINDOW "Salir del SIG"
ENDCASE
I hope this be usefull for you...
bye.
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement