在MDI中打开了多个子窗体，怎样才能获得每个窗口的状态？

[zhangt2001]

我想知道，那个窗口是激活的，哪个窗口是不激活的？谢谢！

[zhangt2001]

怎样遍历forms集合？
谢谢！

[rainstormmaster]

遍历forms集合

[zhh627]

怎么遍历？？

[rainstormmaster]

'假设你的程序中窗体名称为frmmain和frmDocument
Dim testform As Form
For Each testform In Forms
If TypeName(testform) = "frmDocument" Then
If Me.ActiveForm.Caption = testform.Caption Then
Debug.Print "标题为" + testform.Caption + "的窗体为活动窗口"
Else
Debug.Print "标题为" + testform.Caption + "的窗体为非活动窗口"
End If
End If
Next

[rexueqingnian]

你把光标工程窗口的project点击右键选择工程属性然后在startobject（英文版）选择要激活的窗口确定运行一遍就行