Question

vfp9中如何关闭除顶层表单外的所有表单？

我在vfp中设计了一个程序，能够在顶层表单中打开其它的表单，但是我不希望别人能够同时代开几个表单或是重复打开表单，因此我想在打开表单的代码中添加一句代码，关闭除顶层表单外的所有表单，然后再打开指定的表单，请问这个代码怎么写？谢谢！

Answer 1

方法 1: 关闭除顶层表单外的所有表单，然后再打开指定的表单

LOCAL i, FormCount, oForm
FormCount = _Screen.FormCount
FOR i = FormCount TO 2 STEP -1
oForm=_Screen.Forms(i)
if TYPE("oForm") == "O"
oForm.Release()
endif
ENDFOR
do form 指定的表单

方法 2:

把每个表单内的 WindowType 值设定为 1 - Modal , 那么用户必须先关了使用中的表单才能再打开其它的表单。

Answer 2

在顶层表单中只打开一个表单，可以这样：
比如你是利用菜单打开表单，就在菜单的［提示选项］的［跳过］中输入_screen.formcount>1
如果你是用工具栏的按钮打开表单，就用
if _screen.formcount>1
this.enabled=.f.
else
this.enabled=.t.
endi
当然，后面这个办法要麻烦些，要在每个按钮中都加入控制其它按钮是否可用的代码

Answer 3

只要打开前判别是否表单名是否存在就好了
if APPLICATION.ACTIVEFORM.CAPTION <> '某某系统'
do form ...\test.scx
endif