简介本资源面向VB.NET开发者尤其是需要为WinForms或WPF项目构建稳定异常兜底机制的初中级程序员。它围绕全局错误与全局异常捕获这一核心问题讲解如何通过订阅AppDomain.UnhandledException与Application.ThreadException事件集中处理应用程序域和UI线程中的未处理异常避免程序崩溃并保留可追溯的错误日志。压缩包共34个文件约225KB包含9个vb源码文件、3个resx资源文件、3个exe可执行文件以及vbproj项目文件、sln解决方案、pdb调试符号、xml配置和png截图等构成一个可直接运行的完整示例工程。目前已有1206人学习下载。读者可从中获得可复用的全局异常处理模块、事件注册与错误恢复策略的参考实现以及将异常处理逻辑封装为独立服务的组织思路便于在大型项目中统一维护并简化调试排查。1. 未处理异常弹窗满天飞为什么你的 VB.NET 程序一崩就“死给你看”线上环境里最让人头皮发麻的不是某个功能算错了数而是用户截图发来一个红叉弹窗“应用程序发生了未经处理的异常……是否继续”点“继续”程序直接没了点“退出”连日志都没留下。这种 VB.NET 全局错误没接住的场景几乎每个桌面项目都踩过。默认情况下WinForms 的未处理异常会走ThreadException或AppDomain.UnhandledException但很多人只写了Try...Catch包住按钮点击后台线程、定时器、异步任务里抛的异常照样把进程带走。这篇笔记面向正在被“未处理异常”“程序闪退”“日志空白”卡住的开发者把全局异常捕获的根因、可抄的代码和排查顺序一次讲透新手能照着贴代码熟手能看清边界条件。2. 全局异常捕获失效三种典型报错与根因拆解2.1 “未经处理的异常”弹窗反复出现Try 块根本没进去最常见的现象是明明在按钮事件里写了Try...Catch程序还是弹系统默认的未处理异常框。根因通常有两个。第一异常发生在Try块之外比如窗体Load事件里初始化数据库连接失败而Load没有包Try。第二异常发生在子线程或Task里主线程的Try根本管不到。VB.NET 的异常传播是按线程走的跨线程不会自动冒泡到 UI 线程的捕获块。解决思路是给应用装两层“兜底网”UI 线程用Application.ThreadException非 UI 线程用AppDomain.CurrentDomain.UnhandledException。下面这段代码放在Application.Run之前是 WinForms 项目里我一般会先补上的 必须在 Application.Run 之前订阅否则 UI 线程异常仍走默认弹窗 Application.SetUnhandledExceptionMode(UnhandledExceptionMode.CatchException) AddHandler Application.ThreadException, AddressOf OnUiThreadException AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf OnDomainException Application.Run(New MainForm()) UI 线程异常可恢复弹提示后继续运行 Private Sub OnUiThreadException(sender As Object, e As Threading.ThreadExceptionEventArgs) LogError(UI线程异常, e.Exception) MessageBox.Show(操作出现异常已记录日志可继续使用。, 提示, MessageBoxButtons.OK, MessageBoxIcon.Warning) End Sub 非 UI 线程异常CLR 默认会终止进程这里只能记录无法阻止退出 Private Sub OnDomainException(sender As Object, e As UnhandledExceptionEventArgs) Dim ex As Exception TryCast(e.ExceptionObject, Exception) LogError(非UI线程异常, ex) End Sub逻辑说明SetUnhandledExceptionMode必须显式设为CatchException否则某些配置下ThreadException不会触发。ThreadException的异常可以“吞掉”程序继续跑UnhandledException的异常在 .NET Framework 里默认终止进程你只能记录现场不能阻止退出。参数上e.IsTerminating为True时说明进程即将结束此时写日志要同步落盘别用异步队列否则日志还没写完进程就没了。2.2 日志里只有一句“Exception”堆栈全是问号第二个高频坑是日志抓到了异常但内容没法用ex.Message是空的ex.StackTrace显示at System.Windows.Forms...却看不到自己的代码行。原因通常是异常被重新包装过或者发布时没带 PDB 文件。更隐蔽的一种是TargetInvocationException反射调用里抛的真实异常藏在InnerException里只打外层等于白记。我一般会写一个递归展开的日志方法把InnerException链全部打出来Private Sub LogError(tag As String, ex As Exception) Dim sb As New Text.StringBuilder() sb.AppendLine($[{DateTime.Now:yyyy-MM-dd HH:mm:ss}] {tag}) Dim cur As Exception ex Dim depth As Integer 0 While cur IsNot Nothing 缩进体现异常链层级方便定位最内层根因 sb.AppendLine(${New String( c, depth * 2)}类型: {cur.GetType().FullName}) sb.AppendLine(${New String( c, depth * 2)}消息: {cur.Message}) sb.AppendLine(${New String( c, depth * 2)}堆栈: {cur.StackTrace}) cur cur.InnerException depth 1 End While 同步写入避免进程终止时丢日志 IO.File.AppendAllText(app_error.log, sb.ToString()) End Sub逻辑说明InnerException链最多展开到Nothing每一层都记类型、消息、堆栈。depth用来缩进一眼能看出哪层是根因。参数上日志路径建议用AppDomain.CurrentDomain.BaseDirectory拼接别用相对路径否则工作目录一变就找不到文件。发布时勾选“生成调试信息”为full堆栈里才会有行号。2.3 异步和定时器里的异常“人间蒸发”Async Sub事件处理器和System.Timers.Timer是重灾区。Async Sub里抛的异常不会同步冒泡而是变成Task的未观察异常Timers.Timer的Elapsed回调跑在线程池线程上异常直接触发UnhandledException。很多人反馈“程序偶尔自己关了日志什么都没有”八成是这里。处理办法是给异步入口包一层并给定时器回调加Try 异步事件处理器用 Try 包住整个方法体别指望外层 Catch Private Async Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click Try Await LoadDataAsync() Catch ex As Exception LogError(异步加载失败, ex) MessageBox.Show(加载失败请查看日志。) End Try End Sub 定时器回调异常必须就地捕获否则线程池线程直接崩 Private Sub timer_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) Try DoWork() Catch ex As Exception LogError(定时任务异常, ex) End Try End Sub逻辑说明Async Sub的异常无法被调用方Catch只能在方法内部处理这是 VB.NET 异步模型的硬约束。Timers.ElapsedEventArgs回调没有 UI 上下文弹窗要用Invoke切回 UI 线程否则会再抛一个跨线程异常。参数上定时器建议设AutoReset False在Finally里手动Start()避免上一次没跑完下一次又进来。3. 避坑清单全局异常处理最容易翻车的五个点3.1 订阅顺序写反ThreadException 死活不触发现象代码里明明有AddHandler Application.ThreadException但 UI 异常还是弹系统默认框。原因SetUnhandledExceptionMode必须在Application.Run之前调用且AddHandler也要在Run之前。如果先Run再订阅第一帧的异常就漏了。解决把订阅代码统一放到Main方法开头Run放最后。3.2 在 UnhandledException 里弹 MessageBox程序卡死现象非 UI 线程崩溃时日志写了但弹窗不显示进程挂住。原因UnhandledException触发时进程已在终止流程此时弹模态框会阻塞终止表现就是“卡死”。解决这个回调里只做同步日志落盘不弹窗、不做网络请求、不等待。3.3 日志文件被自己锁死第二次崩溃写不进去现象第一次崩溃日志正常第二次崩溃日志文件是空的。原因用了FileStream没释放或者多线程同时写同一个文件没加锁。解决用File.AppendAllText这种短连接方式或者加一个SyncLock锁对象包住写文件操作。3.4 把全局捕获当万能药业务异常也往里塞现象所有异常都被全局兜底吞掉用户操作失败却提示“已记录日志”实际数据没保存。原因全局捕获是最后一道防线不是业务错误处理。解决业务层该Try...Catch的地方照写全局只负责“没预料到的崩溃”两者职责分开。3.5 发布后堆栈没有行号排查全靠猜现象日志里堆栈只有at MyProject.Form1.Method()没有行号。原因发布配置没生成 PDB或者 PDB 没跟 exe 放一起。解决发布时保留 PDB 文件和 exe 同目录如果用了混淆工具配置保留行号映射。4. 快速定位这类问题的排查顺序与验证方法遇到“程序闪退、日志空白、异常没接住”我一般按固定顺序走一遍基本十分钟内能锁定方向。第一步确认异常发生在哪个线程在OnDomainException里打印Threading.Thread.CurrentThread.IsBackground和ManagedThreadId如果是后台线程且 ID 不是 1就是非 UI 线程问题。第二步确认订阅是否生效在Main里加一行Debug.WriteLine(全局异常已订阅)跑一遍看输出窗口有没有打印没有就是订阅代码没执行到。第三步确认日志是否落盘把日志路径改成绝对路径并打印出来手动触发一次异常看文件是否生成。下面这张对照表可以贴在工位上报错现象和排查动作一一对应现象最可能原因第一步动作系统默认异常弹窗ThreadException 未订阅或订阅太晚检查SetUnhandledExceptionMode和AddHandler是否在Run之前日志有异常但无堆栈未展开 InnerException 或没 PDB用递归方法打异常链发布保留 PDB程序静默退出无日志非 UI 线程异常且日志异步写改同步落盘检查IsTerminating定时器任务偶尔崩Elapsed 回调未捕获给回调加Try...Catch弹窗用Invoke异步方法异常丢失Async Sub未内部捕获在Async Sub方法体内包Try验证方法上我习惯写一个“自爆按钮”专门在测试环境触发各类异常UI 线程抛、后台线程抛、异步抛、定时器抛四个场景各点一次确认日志里四条记录齐全、格式正确、进程行为符合预期。这个按钮不进生产只在 Debug 配置下编译。从那以后我每次新建 VB.NET 桌面项目第一件事就是把全局异常订阅和日志方法先搭好再写业务代码。这个习惯帮我省掉了无数次“用户说崩了但我复现不出来”的扯皮。希望帮到你。本文还有配套的精品资源点击获取