2012-03-15 70 views

回答

0

之前就在这段代码,你必须编写的代码,以MDI父中打开新的窗体中添加。假设MDIParent1是你的MDI窗体名称:

If Not IsNothing(MDIParent1.ActiveMdiChild) Then 
     Exit Sub 
    End If 
0

在MDI父窗体创建一个方法,让调用它CloseChildForms

Private Sub CloseChildForms() 

    Try 

     If Not IsNothing(Me.ActiveMdiChild) Then 

      Me.ActiveMdiChild.Close() 

     Else 

      Exit Sub 

     End If 

    Catch ex As Exception 

     'Handle your exceptions 

    End Try 

End Sub 

现在,打开任何其他形式的之前,只需调用此方法。