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

 

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

 

循环每一个窗口

 

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("关闭后会执行这句代码")

1、独立窗口，会打开窗口后马上执行后面代码；

 

2、模式窗口，会关闭窗口后，才执行后面代码。

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
    '执行代码
End If

看懂13楼的代码，把你要在timertick事件实现的代码，写到红色的地方即可。

测试没问题，请上传具体实例说明。

 

当有多个窗口打开的时候，计时器就是不运行的。只打开主窗口的时候，才会运行计时器。

 

具体问题，请上传实例说明。

 

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 <> "主窗口" AndAlso f.name <> "导航窗口" AndAlso f.name <> "菜单窗口"  Then
        flag = True
        Exit For
    End If
Next

If flag = False Then
    Dim lbl As WinForm.Label =mf.Controls("Label1")  
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = mf.width
    End If
End If