0

我有一个名为“MDIParent1”的 MDI 表单,MDI 子表单“MDIChild1”,还有一个名为“FrmTest”的 Windows 表单。

现在在“MDIChild1”表单中有一个名为“btnTest”的按钮,这里是点击事件。

Dim V As New FrmTest
    V.MdiParent = MDIParent1
    V.Show()

但它无法加载“frmTest”表单。还有其他方法吗?提前致谢。

4

1 回答 1

1

尝试这个 :

    Dim V As New FrmTest
    V.MdiParent = Me.MdiParent
    V.Show()

以上假设MDIChild1.MdiParent已经设置为MDIParent1

你也可以这样做:

    Dim V As New FrmTest
    V.MdiParent = Application.OpenForms("MDIParent1")
    V.Show()

要关闭其他表单,请遍历MdiChildrencollection :

    Dim MyMdiForm as Form = Application.OpenForms("MDIParent1")

    For Each Frm As Form In MyMdiForm.MdiChildren  

          If Frm IsNot V Then

                Frm.Close()

          End If

     Next
于 2013-01-26T12:47:56.980 回答