| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3889 人关注过本帖
标题:!!!!!!VFP编译成功后,退出系统不成功,出现了一个“Microsoft Visua ...
只看楼主 加入收藏
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
结帖率:78.26%
收藏
已结贴  问题点数:5 回复次数:10 
!!!!!!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 编辑 ]
搜索更多相关主题的帖子: 怎么办 表单 Microsoft 菜单栏 主程序 
2011-11-11 18:13
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:1 
是不是少什么东西造成的
2011-11-11 19:38
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:1 
主程序中没有关闭系统菜单吧?

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2011-11-11 19:41
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
收藏
得分:0 
原来 是主控表单里的 showwindow要调为 顶层表单,才显现
2011-11-13 13:50
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
收藏
得分:0 
不知道缺少什么东西,在“退出系统”时有clear event 关闭了循环事件呀。
2011-11-13 19:32
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:1 
未经测试,楼主自己测试:
“主程序”
clear screen               &&清屏幕
=setpath()                 &&设置程序路径
on shutdown do myQuit   &&关闭程序时,关闭事件循环
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

PROCEDURE myQuit
if messagebox("真的要关闭应用程序吗?",4,"系统提示!")=6
    clear event
    quit
else
    nodefault
    thisform.release
endif
ENDPROC

“退出系统”按钮程序
if messagebox("真的要关闭应用程序吗?",4,"系统提示!")=6
    clear event
    quit
else
    nodefault
    thisform.release
endif


相互学习,互相交流,共同提高。
2011-11-14 09:52
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:1 
不知道缺少什么东西,在“退出系统”时有clear event 关闭了循环事件呀。

在 clear event 后,加一句
QUIT
试试,不知行不行。
2011-11-14 10:12
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
thisform.released
或release thisform
2011-11-14 11:26
qingxinwufua
Rank: 2
等 级:论坛游民
帖 子:21
专家分:48
注 册:2011-9-6
收藏
得分:0 
建个CONFIG.FPW的文件内容如下:
screen=OFF



连编时把这个文件加到其它文件下~~~
2011-11-14 15:33
qingxinwufua
Rank: 2
等 级:论坛游民
帖 子:21
专家分:48
注 册:2011-9-6
收藏
得分:0 
记得表单要设成顶层表单~~
2011-11-14 15:33
快速回复:!!!!!!VFP编译成功后,退出系统不成功,出现了一个“Microsoft ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050337 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved