VB如何判断MDI子窗体是否已经打开???

[rmini]

VB如何判断MDI子窗体是否已经打开,若已经打开,把该窗体设置为当前活动窗口,如果没有打开,则重新打开

假设主窗体为MDIFrmmain,有FRM1,FRM2,FRM3,FRM4,FRM5子窗体,当我把5个子窗体都打开了后,如果当前窗体不是FRM1,此时我在菜单中又要调用窗体FRM1,要怎么才能调出?????

以下是一个菜单调用窗体FRM1
Private Sub kyfl_Click(Index As Integer)

如何调用(打开)窗体FRM1

End Sub

[孤独剑_LPZ]

Private Sub kyfl_Click(Index As Integer)
if ActiveForm.name<>FRM1 then
FRM1.SetFocus
end if
End Sub

[rmini]

[Quote=引用 3 楼 mybelta2 的回复:]
Dim frm As Form
Dim i As Integer
For Each frm In Forms
If frm.Name = "frm1" Then
frm1.SetFocus
Else
frm1.show
End If
Next
[/Quote]

功能倒是可以实现，但是在已经打开很多窗体的时候，调用其中一个窗体时，窗体抖动得很厉害，怎么回事？？？

[vbman2003]

Dim aForm As Form

For Each aForm In Forms
    If aForm.Name = "FormFace" Then
        FormFace.SetFocus
        exit sub
    end if
Next
FormFace.show

[vbman2003]

FormFace.show 要在循环外,不然只要if...then为false,窗体就要load...

[rmini]

哦，谢谢！我再调试一下！！

[mybelta2]

Dim frm As Form
Dim i As Integer
For Each frm In Forms
If frm.Name = "frm1" Then
frm1.SetFocus
Else
frm1.show
End If
Next

[rmini]

[Quote=引用 2 楼 asftrhgjhkjlkttttttt 的回复:]
Private Sub kyfl_Click(Index As Integer)
    if ActiveForm.name <>FRM1 then
      FRM1.SetFocus
    end if
End Sub
[/Quote]

会出现“对象变量或WITH块变量未设置”

[hwmys]

3楼正解！

Dim aForm As Form
For Each aForm In Forms
If aForm.Name = "FormFace" Then
FormFace.SetFocus
Else
Load FormFace
End If
Next

[rmini]

????

[rmini]

继续等待中...

[vbman2003]

你调试不行吗?你贴上你的相关代码...

[神马都能聊]

如果你没有用dim frm as form1 这样的方式打开窗体，那就是这样就可以了。

form1.show
form1.zorder

[rmini]

已经调试好了,谢谢各位的大力帮助!!!!!

结帖!!!

[gargamel_cn]

不错，学习了，这个刚好有用