vfp中控制程序的退出.txt

来自「Vfp 文档 一些经典编程文章 可供初学者学习编程时使用」· 文本 代码 · 共 21 行

VFP中怎样控制程序的退出？

在VFP中当要退出程序时，将会执行Shut 事件，这个事件可以
用On ShutDown 命令设定它的执行程序。默认程序是显示 "不能退
出 VFP"信息框。下面这个函数是询问您是否想退出程序。
**************************************
* Usage: On ShutDown do OnShutDown
*************************************
FUNCTION OnShutdown()
    Yes_No = 4
    Questionicon=32
    DownNO=7
    ASSKEY=MESSAGEBOX("您是否要退出这个程序", YES_NO+Questionicon , _screen.caption )
    IF Asskey=DownNO
        return .F.
    Else
        &&这里做退出程序的处理
    EndIf 
ENDFUNC