我有一个名为“MDIParent1”的 MDI 表单,MDI 子表单“MDIChild1”,还有一个名为“FrmTest”的 Windows 表单。
现在在“MDIChild1”表单中有一个名为“btnTest”的按钮,这里是点击事件。
Dim V As New FrmTest
V.MdiParent = MDIParent1
V.Show()
但它无法加载“frmTest”表单。还有其他方法吗?提前致谢。
尝试这个 :
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()
要关闭其他表单,请遍历MdiChildren
collection :
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