编程论坛 → VFP论坛

求教：VFP连编成exe后，在关闭exe时显示“不能退出visual foxpro"，我查阅了以往提问，还是不能解决问题。所以求教

雨花石568 发布于 2021-12-16 10:02， 1645 次点击

只有本站会员才能查看附件，请登录

点击第1张图片中的关闭按钮，显示“不能退出visual foxpro"（如第2张图片）。
因此我在菜单上加了一个“退出”按钮。但是使用不方便。

主程序代码如下：

程序代码：

MODIFY WINDOW screen TITLE "XXXXXXX"
DO 菜单.mpr
DO FORM 主系统.scx
READ EVENTS
ENDPROC

如何修改才可以实现点击关闭按钮，退出exe。

6 回复

吹水佬2021-12-16 10:32

可能是没有退出窗口的消息循环
在 form.Destroy 事件执行
CLEAR EVENTS

雨花石5682021-12-16 12:39

回复 2楼吹水佬

在 form.Destroy 事件执行

CLEAR EVENTS

后，我关闭“主系统”小窗口时就会直接退出整个exe。
我的想法是点击exe窗口右上角的关闭符号时，才能退出exe。
求教

吹水佬2021-12-16 14:07

回复 3楼雨花石568

最好提供相关代码文件测试
或将“XXXXXX”和“主系统”两个窗口精简到不能再精简，只要能运行和出现这个问题就可以

kiff2021-12-16 16:02

ON SHUTDOWN do 关闭系统
DO 菜单.mpr
DO FORM 主系统.scx
READ EVENTS
ON SHUTDOWN

PROCEDURE 关闭系统
    IF MESSAGEBOX('确定退出系统？',4+32+256,'询问')=7
        RETURN
    ENDIF
    ON SHUTDOWN
    CLEAR EVENTS
ENDFUNC

雨花石5682021-12-16 22:02

回复 5楼 kiff

可以使用，谢谢。效果符合我的期望。

雨花石5682021-12-16 22:04

回复 4楼吹水佬

5楼回复的代码可已使用。