精华区文章阅读

发信人: sleep (休息休息), 信区: Database
标  题: VFP中怎样控制程序的退出�
发信站: 哈工大紫丁香 (2000年12月04日13:40:36 星期一), 站内信件

用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

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]

Database 版 (精华区)