VB WinForms程序Release模式下未捕获异常处理失效求助

问题原因 #

Debug模式下Visual Studio会拦截所有未处理异常，因此AppDomain.CurrentDomain.UnhandledException事件能正常触发；但Release模式下，WinForms默认会捕获UI线程的未处理异常并弹出内置错误对话框，不会将异常传递到AppDomain级别的事件中，导致你的日志代码无法执行。非UI线程的未处理异常本来会触发该事件，但UI线程的异常被WinForms默认机制接管了。

解决方案 #

方案1：同时处理UI线程和AppDomain级异常

在Application_Startup中同时订阅Application.ThreadException（处理UI线程异常）和AppDomain.CurrentDomain.UnhandledException（处理非UI线程异常），并可选择禁用WinForms默认错误对话框：

Private Sub Application_Startup(sender As Object, e As Application.StartupEventArgs) Handles Me.Startup
    ' 订阅UI线程未处理异常
    AddHandler Application.ThreadException, AddressOf Application_ThreadException
    ' 订阅AppDomain级未处理异常（非UI线程）
    AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Application_UnhandledException
End Sub

Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
    Dim ex As Exception = DirectCast(e.ExceptionObject, Exception)
    ' 你的日志记录逻辑
    ' 示例：写入日志文件
    ' My.Computer.FileSystem.WriteAllText("app_errors.log", $"{DateTime.Now}: {ex.ToString()}{vbCrLf}", True)
End Sub

Private Sub Application_ThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
    ' 记录UI线程异常日志
    ' My.Computer.FileSystem.WriteAllText("app_errors.log", $"{DateTime.Now}: {e.Exception.ToString()}{vbCrLf}", True)
    ' 禁用WinForms默认错误对话框
    e.Handled = True
End Sub

方案2：让UI线程异常触发AppDomain事件

设置Application.SetUnhandledExceptionMode为ThrowException，让WinForms不处理UI线程异常，转而传递到AppDomain事件：

Private Sub Application_Startup(sender As Object, e As Application.StartupEventArgs) Handles Me.Startup
    ' 设定未处理异常模式：让UI线程异常直接抛出，触发AppDomain事件
    Application.SetUnhandledExceptionMode(UnhandledExceptionMode.ThrowException)
    AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Application_UnhandledException
End Sub

Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
    Dim ex As Exception = DirectCast(e.ExceptionObject, Exception)
    ' 你的日志记录逻辑
End Sub

方案3：修改应用配置文件（可选）

在app.config中添加运行时配置，启用旧版异常处理策略，让UI线程异常也触发AppDomain事件：

<configuration>
  <runtime>
    <legacyUnhandledExceptionPolicy enabled="true"/>
  </runtime>
</configuration>

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