我有一个名为“MDIParent1”的MDI表单,MDI子表单“MDIChild1”,我有一个名为“FrmTest”的窗体。
现在在“MDIChild1”表单中有一个名为“btnTest”的按钮,这是点击事件。
Dim V As New FrmTest
V.MdiParent = MDIParent1
V.Show()
但它无法加载“frmTest”表单。有没有其他方法可以这样做? 提前谢谢。
答案 0 :(得分: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()
要关闭其他表单,请遍历MdiChildren
集合:
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