首先，我有一个“主表单”，我在上面加了一个退出按钮，里面这样写：

Clear events
thisform.release
quit

同时 我的main.prg主程序里有这样一段：

DO form 主表单.scx

Read Events &&开始事件处理：使启动封面停下来
_Screen.Show &&显示VFP主窗口
Read Events &&开始事件处理
RETURN

clea all
close all data

Quit

这里的问题是，我点击“退出”按钮就关闭了主表单，但是vfp的白色大窗口还在那里，无法退出，只能用windows的“结束进程”。。。这个问题出在哪里呢？

~~~~~~~~~~~~~~~~~~~~~~~~
是不是可以理解成我的“退出按钮”没有退出“VFP主窗口”？如果是这样的话，如何通过“退出按钮”完全退出呢？

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



补充上传三版源程序，放在任意位置，运行main.prg即可：

我新上传了三版程序，请大家看看，分别是：

1、这一版点按钮变白板无法退出，而点击红叉虽然能退出但是有vfp6进程，只能三个键结束进程。
主表单 的 QueryUnload  里面没有写代码。

2、这一版点按钮变白板，而点击红叉无效
主表单 的 QueryUnload  里面写：
NODEFAULT

3、这一版点按钮变白板，红叉可退出
主表单 的 QueryUnload  里面写：
NODEFAULT

~~~~~~~~~~~~~~~~~~~~~~~~~~~
我的目的是想在这个小例子里

1、搞清楚 QueryUnload 的作用
2、实现“点按钮正常退出，而点击红叉无效”

[此贴子已经被作者于2016-3-29 20:53编辑过]

clear event
quit

谢谢，但是。。。不行，是不是因为我的主表单有几个修改：

ShowWindow  是： 2-作为顶层表单
WindowState  是： 0 -普通
WindowsType 是 ： 1 -模式

这么设置的目的是在网上查了很久的“一闪而过”问题的解决方法。。。只有这样设置了。。。

没看明白解决问题了没有。

在主文件程序里加上
on shutdown quit
看看

quit
应该关闭掉才对

按钮里面写 thisform.release 就可以
Clear events 可放到 Unload 事件里
quit 放到整个程序关闭退出时执行的最后一句

DO form 主表单.scx
Read Events &&开始事件处理：使启动封面停下来
IF _VFP.StartMode == 4
    QUIT
ELSE
    CLOSE DATABASES ALL
    clea all
ENDIF

释放表单后，按钮上的quit没能运行，紧跟后面又是read events命令和return，命令又运行不到第二个quit。程度思路还有点不明了。

我新上传了三版程序，请大家看看，分别是：

1、这一版点按钮变白板无法退出，而点击红叉虽然能退出但是有vfp6进程，只能三个键结束进程。
主表单 的 QueryUnload  里面没有写代码。

2、这一版点按钮变白板，而点击红叉无效
主表单 的 QueryUnload  里面写：
NODEFAULT

3、这一版点按钮变白板，红叉可退出
主表单 的 QueryUnload  里面写：
NODEFAULT


~~~~~~~~~~~~
我的目的是想在这个小例子里：

1、搞清楚 QueryUnload 的作用
2、实现“点按钮正常退出，而点击红叉无效”

[此贴子已经被作者于2016-3-29 20:53编辑过]

为了能正常退出，第二个read events必须有地方用clear event清除掉，要不就直接注释掉那两行。