打开一个表单时关闭所有其它表单代码用法

ljlhpop 发布于 2022-04-26 18:16， 1696 次点击

问如何在打开一个表单时关闭所有其它表单？
可在表单的LOAD 中调用以下过程
=PTBD("THISFORM.CAPTION")
PTBD.PRG &&内容如下
para formcaption
for i= 1 to _screen.formcount
   if alltrim(_screen.form[i].caption)!=;
      alltrim(formcaption) and alltrim(_screen.form[i].caption)!=;
      "Toolbar1"  &&除本表单及工具栏不关闭，其它都关闭
  _screen.forms[i].release
   endif
endfor
return
百度到了一个方法,,,,可惜小弟试来试去不行,不知道是哪里问题,烦请大师指点一下.如下图..

只有本站会员才能查看附件，请登录

9 回复

吹水佬2022-04-26 19:24

**form[i].caption
forms[i].caption

ljlhpop2022-04-26 19:41

回复 2楼吹水佬

吹水佬老师傅,,,您写的2行,,,我实在看不懂,是哪里错了?要改哪里?

laowan0012022-04-26 20:15

把程序里的 form[i].caption
改成 forms[i].caption

我解释一下吹版的意思
不对就拍我吧

ljlhpop2022-04-26 20:28

只有本站会员才能查看附件，请登录

不行,,,,,改成 forms[i].caption ,,点击菜单,,直接全部退出软件了

ljlhpop2022-04-26 20:36

回复 4楼 laowan001

都改了,,,我把Toolbar1 也改为MAIN ,主表单,,,还是不行

吹水佬2022-04-26 20:39

以下是引用ljlhpop在2022-4-26 20:28:21的发言：

不行,,,,,改成 forms.caption ,,点击菜单,,直接全部退出软件了

什么不行?
先说说你提的第一个错误问题解决了没有

ljlhpop2022-04-26 20:47

回复 7楼吹水佬

感谢吹水哥回复,,,现在没提示错误,,不过...按了菜单..软件直接全部退出,,,没有实现关闭其他表单(除了主界面和自身)的功能

ljlhpop2022-04-26 20:53

只有本站会员才能查看附件，请登录

按论坛上另一个的帖子的代码改改,,又不行,,吐血.........

#10

ljlhpop2022-04-27 18:00

研究了大半天,,,,各种代码各种问题,,菜鸟伤不起,,
后来百度到一个方法:

在顶层表单中只打开一个表单，可以这样：
比如你是利用菜单打开表单，就在菜单的［提示选项］的［跳过］中输入_screen.formcount>1

土法子,,不过,测试后,OK....

打开一个表单时关闭所有其它表单 代码用法

打开一个表单时关闭所有其它表单代码用法