vb.net 关闭多个表单并打开另一个表单

Question

我打开了 2 个表单，我当前的表单在对话框中。现在我想关闭那 2 个表单并打开另一个表单。

 Dim frmStg2 As New frmStageTwo
 Dim frmStg1 As New frmStageOne

        frmStg2.Show()
        Me.Close()
        frmStg1.Close()

但此代码似乎无法正常工作，frmStageOne 仍处于打开状态并显示 frmStageTwo，但我无法查看该表单。

This is what happen

Answer 1

您正在尝试关闭尚未打开的表单实例。

当您使用 New 关键字时，您正在声明一个对象的新实例（在本例中为 Form），它具有自己的基类属性和字段版本。

为了关闭已经存在的表单实例，您可以循环访问Application.OpenForms 属性。

For Each frm As Form In Application.OpenForms
    If frm.GetType() Is GetType(frmStageOne) Then
        frm.Close()
    End If
Next

---

你实际上可以把它变成一个方法：

Public Sub CloseFormsOfType(ByVal TargetForm As Form)
    For Each frm As Form In Application.OpenForms
        If frm.GetType() Is TargetForm.GetType() Then
            frm.Close()
        End If
    Next
End Sub

...然后打电话：

CloseFormsOfType(frmStageOne)