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

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

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

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

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

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

我的程序主窗体类型是主窗口，窗体中有一个计时器，其他窗体是模式或独立窗口。我想实现当有其他窗体打开时（除导航窗体和菜单窗体以外）。主窗体中的计时器关闭，否则打开计时器。该怎么实现呢？

 

 

还有就是模式窗体关闭窗体后无法传值给主窗体

代码是不是写到每个模式窗体的AfterLoad事件呢？

 

我写到计时器TimerTick事件中写了如下代码，当其他窗体打开或关闭不执行代码

 

 

 Dim lbl As WinForm.Label =Forms("主窗体").Controls("Label1")
Dim mf1 As WinForm.Form = forms("停靠窗体")
Dim mf2 As WinForm.Form = forms("菜单窗体")
Dim mf As WinForm.Form = e.form
Dim flag As Boolean = False
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> mf.name AndAlso f.name <>  mf1.name AndAlso f.name <>  mf2.name Then
        flag = True
        Exit For
    End If
Next
If flag = False Then
    If sfxsdh=False Then
    lbl.Visible=False
    Forms("主窗体").TimerEnabled=False
    Return
Else
    lbl.Visible=True
    Forms("主窗体").TimerEnabled= True
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = Forms("主窗体").width
    End If
End If
End If

Dim mf As WinForm.Form = e.form
Dim flag As Boolean = False
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> mf.name Then
        flag = True
        Exit For
    End If
Next

If flag = False Then
   Dim lbl As WinForm.Label =Forms("主窗体").Controls("Label1")
If sfxsdh=False Then
    lbl.Visible=False
    Forms("主窗体").TimerEnabled=False
    Return
Else
    lbl.Visible=True
    Forms("主窗体").TimerEnabled= True
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = Forms("主窗体").width
    End If
End If
End If

 

甜老师按您的方法写到计时器事件中运行后出现一下错误：

（1）打开窗体后计时器不执行

此主题相关图片如下：99999.jpg

 

（2）如如打开了窗口类型为主窗口的窗体再打开模式窗体出错如下：

 

此主题相关图片如下：45555.jpg

 

此主题相关图片如下：588888.jpg

同样的错误

计时器根本不运行