letsgotovegas
Programmer
Hi
Below is my code. The problem is my application will not shutdown. And then when I try to quit vfp it will not shutdown either.
This is in my main prg.
This is my shutdown procedure
Kind Regards
John
To much of a good thing - is a good thing!
Below is my code. The problem is my application will not shutdown. And then when I try to quit vfp it will not shutdown either.
This is in my main prg.
Code:
PUBLIC frmMain as Object
SET PATH TO HOME(1);MENUS;classes;libs;DATA;SOURCE;OTHER;graphics;FORMS;OTHER
ON SHUTDOWN DO closedown
SET CLASSLIB TO clsForms.vcx
frmMain = CreateObject("MainForm")
frmMain.Show
READ EVENTS
This is my shutdown procedure
Code:
PROCEDURE CloseDown()
SET SYSMENU TO DEFAULT
frmMain.Unload
CLEAR EVENTS
CANCEL
RETURN
Kind Regards
John
To much of a good thing - is a good thing!