请教：VB实现在打开一个MDI子窗体前，关闭前面已打开的那个MDI子窗体？

[csdnxgz]

[sonicdater]

能在一个程序中 建立 两个 MDI 窗体 吗？

[chenbin]

form1.ActiveMDIChild.close;
在一个程序中可以建两个MDI子窗体

[chenbin]

或更多的窗体

[sonicdater]

楼上的兄弟， ActiveMDIChild 是 VB.NET 中的 属性 吧。？

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemWindowsFormsFormClassActiveMdiChildTopic.asp

[csdnxgz]

我有一个MDI主窗体，是MDIFORM1，
其它是MDI子窗体，FORM1,FORM2,
我想在菜单里点击菜单 A ,显示FORM1，
点击菜单 B 时显示FORM2,
在每次显示新窗体之前，关闭上次打开的窗体，我应该在菜单按钮上怎样写代码。

[yangzhaoyu]

Private Sub a_Click()
mdiDel
Form1.Show
End Sub

Private Sub c_Click()
mdiDel
Form2.Show
End Sub
Private Function mdiDel()
Dim cf As Form
For Each cf In Forms
If cf.Name <> MDIForm1.Name Then
Unload cf
End If
Next
End Function

[chenbin]

错了……我以为这是DELPHI版，搞混了，抱歉……

[fraser01]

Unload MDIForm1.ActiveForm