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)