怎样才能得到一个子窗体是否打开的状态?

Question

我需要知道一个窗体是否打开,如果没打开就立即打开该窗体,如果打开了就查找其他窗体是否打开,但是我用窗体的visuble属性来判断的话,没打开的窗体都被打开了,比如
if not form1.visible then
.......
exit sub
elseif not form2.visible then
.....
exit sub
end if
这样写的话,只能把两个窗体都打开了,而我只要打开form1

Answer 1

Dim a As Form
For Each a In Forms
  If a.Name = "Form1" Then
    MsgBox "已经打开 "
  End If
Next