VB.NET中Flash方法触发事件时如何在调用栈抛出可捕获异常？

你遇到的核心问题是：事件处理程序的执行上下文和Flash()方法的调用栈是完全分离的。当FlashLib.Device触发ErrorEvent时，这个事件是在它自身的执行线程（或调用上下文）里调用你的OnError方法的——你在OnError里抛出的异常不会沿着Flash()的调用栈向上传递，而是会回到触发事件的那个上下文，这就是为什么外层的Try/Catch抓不到异常，且Flash()会继续执行后续代码的原因。

下面给你两种可行的解决方案：

方案1：用共享变量记录异常，在Flash()中主动抛出 #

这种方法最直接，通过类级别的变量保存事件触发时的异常，然后在Flash()方法的关键流程节点主动检查这个变量，一旦发现异常就抛出，让外层的Try/Catch能够捕获。

修改后的Flasher类代码：

Class Flasher
    Private myDevice As New FlashLib.Device
    Private flashException As Exception = Nothing ' 用于暂存事件触发的异常

    Public Function Flash() As String
        flashException = Nothing ' 每次调用前重置异常状态
        AddHandler myDevice.ErrorEvent, AddressOf OnError
        Try
            ' 执行刷写操作
            myDevice.flash_firmware("myfirmware.fw")
            
            ' 检查刷写过程中是否触发了异常
            If flashException IsNot Nothing Then
                Throw flashException
            End If
            
            myDevice.restart()
            Threading.Thread.Sleep(5000)
            
            ' 再次检查重启环节的异常（如果有的话）
            If flashException IsNot Nothing Then
                Throw flashException
            End If
            
            Return "OK"
        Finally
            ' 务必移除事件处理，避免内存泄漏
            RemoveHandler myDevice.ErrorEvent, AddressOf OnError
        End Try
    End Function

    Private Sub OnError(ByRef Err As ErrEventArgs)
        ' 仅记录异常，不在事件处理程序中直接抛出
        flashException = New System.Exception(String.Format("Device threw an error during flashing process. Type: {0}", Err.error))
    End Sub
End Class

修改后，ErrorEvent触发时我们只保存异常，然后在Flash()的流程中主动检查并抛出，外层的Try/Catch就能正常捕获异常了。

方案2：用同步等待机制（适配异步触发的事件） #

如果ErrorEvent是在异步线程中触发的，方案1可能无法及时捕获异常，这时候可以用ManualResetEvent来同步等待事件触发，确保异常能被及时处理：

Imports System.Threading

Class Flasher
    Private myDevice As New FlashLib.Device
    Private flashException As Exception = Nothing
    Private errorEventTriggered As New ManualResetEvent(False)

    Public Function Flash() As String
        flashException = Nothing
        errorEventTriggered.Reset()
        AddHandler myDevice.ErrorEvent, AddressOf OnError
        Try
            ' 启动刷写操作（如果是异步执行的）
            myDevice.flash_firmware("myfirmware.fw")
            
            ' 等待刷写完成或异常触发，设置超时避免无限阻塞
            If errorEventTriggered.WaitOne(10000) Then ' 等待10秒
                If flashException IsNot Nothing Then
                    Throw flashException
                End If
            End If
            
            myDevice.restart()
            Threading.Thread.Sleep(5000)
            Return "OK"
        Finally
            RemoveHandler myDevice.ErrorEvent, AddressOf OnError
            errorEventTriggered.Dispose()
        End Try
    End Function

    Private Sub OnError(ByRef Err As ErrEventArgs)
        flashException = New System.Exception(String.Format("Device threw an error during flashing process. Type: {0}", Err.error))
        errorEventTriggered.Set() ' 通知主线程异常已触发
    End Sub
End Class

关键注意事项 #

• 必须在Finally块中移除事件处理程序，否则Flasher实例会被myDevice持续引用，无法被GC回收，造成内存泄漏。
• 不要在事件处理程序中直接抛出异常，除非你能100%确认事件的触发上下文和调用栈完全一致（绝大多数场景下都不满足）。
• 如果flash_firmware是异步方法，需要根据实际业务调整等待逻辑，避免不必要的主线程阻塞。

现在你的调用代码就能正常捕获异常了：

Dim flasher As New Flasher
Try
    flasher.Flash()
Catch ex As Exception
    Debug.Print($"There was a problem with flashing: {ex.Message}")
End Try

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