!!!!!!VFP编译成功后,退出系统不成功,出现了一个“Microsoft Visual FoxPro”的窗口,如何关闭呢!!!
vfp成功编译后生成了exe的文件。可以正常打开,但关闭主控表单后,屏幕布中留下了下面这个窗口,怎么办呢?能不能设计个关闭命令,在关闭程序的时候把下面这个也关闭了呢?我的QQ:529309636,请高手们不赐赐教呀...
我在菜单栏中加了一个“退出系统”的菜菜单,点击它时会弹出一个‘退出系统’的界面,如下图1所不。点出退出时,程序不能退出,只能点击右上角的退出按钮才能退出,此时出现了如图2所示的窗口,我的 “主程序” 如下:
“主程序”
clear screen &&清屏幕
=setpath() &&设置程序路径
on shutdown clear events &&关闭程序时,关闭事件循环
do form fm &&调用封面
read events &&启动事件循环
on shutdown clear events &&关闭系统时进行关闭事件循环
function setpath() &&设置系统路径函数
local lcsys16,lcprogram &&定义两个局部变量,存放下面的信息
lcsys16=sys(16) &&获得执行程序文件名
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
set path to C:\XXXXX &&设置路径
endfunc
“退出系统”按钮程序
myval=messagebox("真的要关闭应用程序吗?",4,"系统提示!")
if myval=6
quit
thisform.release
_screen.visible=.t.
_screen.top=0
clear event
else
nodefault
thisform.release
endif
[ 本帖最后由 dochjp 于 2011-11-13 19:47 编辑 ]