| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3889 人关注过本帖
标题:!!!!!!VFP编译成功后,退出系统不成功,出现了一个“Microsoft Visua ...
取消只看楼主 加入收藏
dochjp
Rank: 2
来 自:福州
等 级:论坛游民
帖 子:80
专家分:20
注 册:2011-4-20
结帖率:78.26%
收藏
已结贴  问题点数:5 回复次数:2 
!!!!!!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
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
快速回复:!!!!!!VFP编译成功后,退出系统不成功,出现了一个“Microsoft ...
数据加载中...
 
   



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

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