PDA

View Full Version : پیغام can not quit foxpro


frahimi
چهارشنبه 20 دی 1385, 08:32 صبح
با سلامی مجدد

http://www.barnamenevis.org/forum/images/icons/icon5.gifیک برنامه exe در ویژوال ایجاد کرده ام بعد از اتمام کار با برنامه که از آن خارج میشوم هنگام خاموش کردن کامپیوتر با پیغام cannot Quit foxpro مواجه میشوم در صورتی که از برنامه خارج شده ام. اشکال من در چیست؟

با تشکر
rezakhj
چهارشنبه 20 دی 1385, 08:59 صبح
یک برنامه prg درست کن و مراحل زیر را اضافه کن

do form main.scx
read events

و در برنامه main یک کلید خروج تعریف کن یعنی اینکه از کلید close فرم استفاده نکن
یعنی در فرم titlebar=.f کن

thisform.release
clear events
rezaTavak
چهارشنبه 20 دی 1385, 10:44 صبح
دستور



on shudown



برای همین کار است مثلا برای خروج با ضربدر باید این کد اجرا بشه (یعنی اول برنامه باشه)



on shutdown quit


البته کارهای دیگر هم میتونی بکنی مثلا به جای quit یک prg یا فرم اجرا بشه.
rahro
چهارشنبه 20 دی 1385, 11:15 صبح
این کد را تست کن
این را در main بگذار


lconshutdown = "ShutDown()"
On Shutdown &lcOnShutdown

ON SHUTDOWN DO FORM exitmain


و از این فانکشن استفاده کن



FUNCTION Shutdown
IF TYPE("goApp") == "O" .AND. ;
.NOT. ISNULL(goapp)
RETURN goapp.onshutdown()
ENDIF
cleanup()
QUIT
ENDFUNC
**
PROCEDURE Cleanup
IF CNTBAR("_msysmenu") = 7
RETURN
ENDIF