VFP 愛用者社區

[ericklin]

如題
在主程式加了 on shutdown QUIT
(目地是 按了 _SCREEN.CLOSE 可以結束程式)
但卻影響電腦登出及關機 動做。
不先把 VFP程式結束 直接登出，需登出二次才會成功登出。
第一次登出 結束了VFP程式 --中斷了登出動做

若主程式不加 on shutdown 就不會有這情況
但會快速出現 "無法結束VFP " 的字眼 後登出(關機)

是否有網大 能幫忙 排除 電腦登出時 不出現 "無法結束 vfp" ???

[syntech]

請搜尋 "無法結束vfp"

[ericklin]

syntech 兄 感謝回覆
站內搜尋的方法都試過了 ，可以都可順利 結束程式 也不會出現 "無法結束vfp"
但是我的問題依然存在 "需登出二次才會成功"
你那裡能否幫忙測看看 不結束程式 直接電腦 登出，是否能一次就成功?。 謝謝了

[syntech]

不會,一次就成功.

因為不是 "on shutdown QUIT "
而是 "on shutdown function_QUIT "
然後用搜尋到的方法處理

[ericklin]

我貼上我的方式 請幫我check一下
在 main form 內的activate method 加了
set procedure to user_proce.prg additive
on shutdown exitapi()
read events

=================在另一個user_proce.prg
function exitapi
Local C
For C = 1 to _Screen.FormCount
If type("_Screen.ActiveForm") = "O"
_Screen.ActiveForm.Release()
Endif
Endfor
Clear events
Release all
quit
endfunc

[LiuRambo]

?
假設如果還有第二層的FORM開著 又設定了WINDOWTYPE=1
這樣點結束關的掉嗎?
這不就如同直接去點X關閉一樣 關不掉吧

建議是不是要修改一下去檢查是否還有其他FORM開啟
或者換個方式去檢查_SCREEN是不是ONFOCUS

[ericklin]

謝謝 syntech兄 指點 相信您的確認 我又用另一種方法使用，結果成功了
問題分享:
原先 依 syntech兄的方式 在 main.scx 主程式上設定 on shutdown exitapi() 及read events
怎麼試都不行。原本懷疑 方法不對 但 syntech兄 說他可以。
我就換另一種方式，另建 主程式 main.prg 由main.prg 去call main.scx
on shutdown exitapi() 及read events 都放在 main.prg 內
結果--我出運了--成功一次登出。

[LiuRambo]

以PRG當主程式是本來就要的吧?!

[pilipala]

[LiuRambo]

[CCB2000]

試試：
function exitapi
HIDE WINDOW ALL
CLEAR events
ON shutdown
QUIT
endfunc

[whh]

我可以請教一下嗎?

我參考了上面的作法照寫一個

Project Manager
|
|__ Code (分頁)
|
|__ Programs
|
|__ my

my.prg
內容

SET PROC TO MyFn ADDI
SET PROC TO Myexitapi ADDI && 參考上面教學

_VFP.Visible = .T.
_SCREEN.WindowState = 0
_SCREEN.WindowType = 1

_screen.Visible=.F.

SET SYSMENU OFF

DO FORM MyWin_test
READ EVENTS

ON SHUTDOWN exitapi() && 參考上面教學

可是不管是[登出、重開機]都還是會跑，終止程序 xxxxx，不會無聲無息的關掉
請問是什麼問題 ><?

[whh]

我知道了 0.0
ON SHUTDOWN exitapi()
要先放到
DO FORM MyWin_test 上面
讓程式寫載入
這樣才知道遇到，關機時會繞去那段