VFP 愛用者社區

ylong · 註冊時間: 2003-07-30 文章: 118 第 1 樓

在vfp的表單上有三個按鍵，最小化，最大化及關閉表單，每次選擇關閉
表單時，他都會出現無法結束VFP的畫面出現，請高手不吝賜教，謝謝

syntech · 發表於: 星期二四月 13, 2004 3:15 pm 文章主題:

http://vfp.sunyear.com.tw/viewtopic.php?t=53

不曉得能不能用,參考看看

ylong · 註冊時間: 2003-07-30 文章: 118 第 3 樓

謝謝syntech的指導，我在別的網站找到了下面的程式資料，測試後覺得很不錯

在主程式中
ON SHUTDOWN DO S_SysEXIT

*S_SysEXIT.PRG
*********************************************
* 副程式 : S_SysEXIT
* 結束系統工作確定副程式 ...
Local C
For C = 1 to _Screen.FormCount
If type("_Screen.ActiveForm") = "O"
_Screen.ActiveForm.Release()
Endif
Endfor
Clear events
Release all
Quit