VB.NET切换窗体时程序意外终止问题求助（VS2022环境）

环境与问题场景 #

• 开发环境：Microsoft Visual Studio Community 2022 (64位) v17.7.4
• 项目设置：关闭模式为仅在最后一个窗体关闭后关闭程序
• 异常表现：
  执行以下两种代码时，程序都会直接终止，而非等待Analysis窗体关闭后再结束：
  代码示例1：

  Private Sub Form1ToolStripMenuItem_Click
    Analysis.Show()
    Me.Close()
  End Sub
  

  代码示例2：

  Private Sub Form1ToolStripMenuItem_Click
    Analysis.Show()
  End Sub
  Private Sub Analysis_Load
    Form1.Close()
  End Sub
  

  仅当隐藏Form1、关闭Analysis后程序才能正常运行，该逻辑在旧版VB.NET中可正常执行，需解决当前版本的兼容问题。

可行解决办法 #

方案1：拦截主窗体关闭事件，改为隐藏而非关闭

给Form1添加FormClosing事件处理，判断存在其他可见窗体时取消关闭、隐藏自身；同时在Analysis窗体的关闭事件中检查是否需要退出程序：

' Form1的FormClosing事件
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    ' 检查是否还有其他可见窗体在运行
    If Application.OpenForms.Cast(Of Form).Any(Function(f) f IsNot Me AndAlso f.Visible) Then
        e.Cancel = True ' 取消关闭操作
        Me.Hide() ' 隐藏主窗体
    End If
End Sub

' Analysis的FormClosing事件
Private Sub Analysis_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    Dim allOpenForms = Application.OpenForms.Cast(Of Form).ToList()
    ' 只剩隐藏的Form1时，退出程序
    If allOpenForms.Count = 1 AndAlso allOpenForms(0) Is Form1 AndAlso Not Form1.Visible Then
        Application.Exit()
    End If
End Sub

方案2：自定义程序启动逻辑，手动管理生命周期

1. 打开项目属性，将启动对象改为Sub Main
2. 添加一个模块，编写启动代码手动控制窗体与消息循环：

Module Program
    Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        
        Dim mainForm As New Form1()
        Dim analysisForm As New Analysis()
        
        mainForm.Show()
        ' 启动消息循环，直到调用Application.Exit()才终止程序
        Application.Run()
    End Sub
End Module

之后可以在需要退出的时机（比如所有窗体都关闭时）调用Application.Exit()。

方案3：调整启动窗体主次关系

如果业务逻辑允许，将Analysis设为项目启动窗体，在其Load事件中打开Form1：

1. 项目属性中把启动窗体改为Analysis
2. 编写Analysis的Load事件代码：

Private Sub Analysis_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Form1.Show()
End Sub

此时关闭Form1不会触发程序终止，只有关闭Analysis时程序才会结束。

内容的提问来源于stack exchange，提问作者PhillyJoeDog