2012-03-15 59 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 

現在,打開任何其他形式的之前,只需調用此方法。