回 帖 发 新 帖 刷新版面

主题:求教

用vf生成的可执行文件的x号关闭按纽提示“不能退出Visual Foxpro”原因是什么?同时如何生成的安装程序安装好后提示“无效的路径和文件名”?补充:我的主文件是这么写的(安装好的文件在C:111):
set defaul to h:\123\data
do form hx
read events

回复列表 (共7个回复)

沙发


ON shutdown quit
READ event

板凳

在表单的 destroy 事件:

clear events
quit

3 楼


另外再增加一条设置路径命令:
SET PATH TO sys(5)+sys(2003)

4 楼

对,使用绝对路径是很不好的习惯

5 楼

最好是用顶层表单

6 楼

表单的Destory,只能释放表单,我说的是生成的.exe文件点击叉号提示“不能退出Visual Foxpro",这该怎么处理?谢谢你的关注和指教!给你加点分,帮我解决后再给加分!

7 楼

在项目管理中,添加设置一个 "主文件"  admin.prg  内容如下:

*admin.prg

SET SAFETY OFF      &&关闭文件保护
SET TALK OFF        &&关闭执行信息
SET STATUS OFF      &&关闭状态栏
SET STATUS BAR OFF  &&关闭状态栏
SET SYSMENU OFF     &&关闭系统菜单
SET ESCAPE OFF      &&禁止ESC键中断命令执行
SET DATE ANSI       &&设置日期格式
SET CENTURY ON      &&设置2000年格式
MODIFY WINDOWS SCREEN TITLE '<<XXXX软件 >> '
ZOOM WINDOWS SCREEN MAX
on shutdown do QUIT_  &&或改为on shutdown QUIT  不用询问直接退出
   DO FORM 登录.scx  &&或要打开的表单  直点窗的X或 用QUIT命令退出都可
READ EVENTS


PROCEDURE QUIT_
   M_test=MESSAGEBOX('是否退出程序?',292,' 请确认!')
   IF M_test=6
      CLOS ALL
      QUIT
   ENDIF
RETURN

将项目编译成*.EXE  即可....

我来回复

您尚未登录,请登录后再回复。点此登录或注册