主题：关于判断窗口是否已经打开

在打开某一个窗体时怎样判断其他窗体是否已经打开？

if forms(xxx).opend

 

http://www.foxtable.com/webhelp/scr/0705.htm

 

因为其他窗体不知道具体是哪个窗体可能是A窗体、可能是B窗体、可能是C窗体、可能是T窗体、也有可能同时打开了好几个窗体,我想实现在打开某一个窗体前怎么判断除本窗体以外其他窗体是否有打开？

循环每一个窗口

 

For Each f As WinForm.Form In forms
    If f.Opened Then
        msgbox(f.name)
    End If
Next

我想实现在打开某一个窗体前怎么判断除这个窗体以外其他窗体是否有打开？如果是就执行一段代码如果其他窗体没有打开就执行另一段代码

Dim mf As WinForm.Form = forms("窗口1")
Dim flag As Boolean = False
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> mf.name Then
        msgbox(f.name)
        flag = True
        Exit For
    End If
Next

If flag = True Then
    msgbox(123)
Else
    mf.show
end if

怎么设置模式窗体关闭窗体后执行一个命令呢？

 

1、模式窗口不是有afterClose事件？

 

2、打开，关闭以后，也可以执行，如

 

forms("窗口1").Show

msgbox("关闭后会执行这句代码")

甜老师独立窗体可以模式窗体关闭后不执行关闭后的代码