vfp:通用退出代码

表单的queryunload事件中，有如下代码

nYesNo = MessageBox("确定要退出吗？",4+48+256,"提示")
If nYesNo = 6 &&如果选取了“是”，则退出
*-- 退出前要执行的代码写在这里，
*-- 然后执行类似下面的退出代码
ThisForm.Release
Else &&选取了“否”，不退出
NODEFAULT
EndIf

需要说明的是，当在代码中直接执行 RELEASE 命令或直接调用表单的 Release 方法时，不会触发 QueryUnload 事件。因此，我们应尽量避免在代码中直接执行RELEASE 命令或调用表单的 Release 方法。取代的方法是，当要卸载表单时，转向调用表单的QueryUnload方法，比如在“退出”按钮的click事件中：
thisform.QueryUnload 本文出自 “风起云涌” 博客，请务必保留此出处http://gzkhrh.blog.51cto.com/30447/333450