Visual Basic .NET中的异常处理简介（下）

作者：Microsoft  
　　非结构化异常处理
　　非结构化异常处理通过 Err 对象和以下三种语句来实现：On Error、Resume 和 Error。On Error 语句创建单个异常处理程序以捕捉发生的所有异常，您可以在以后改变处理程序的位置，但一次只能有一个处理程序。此方法可以跟踪最近产生的异常和最近的异常处理程序的位置。在方法开始时，异常和异常处理程序的位置都设置为 Nothing。
　　要在代码中生成运行时错误，请使用 Raise 方法。每次在错误处理例程中发生 Exit Sub、Exit Function、Exit Property、Resume 或 Resume Next 语句时，Err 对象的属性都将重置为零或零长度字符串。在错误处理例程外部使用上述任何语句都不会重置其属性。如果确实需要重置属性，可以使用 Clear 方法重置 Err 对象。　　Error 对象
　　Err 对象属性的值由刚刚发生的错误决定。下表列出了该对象的属性及其简单说明。 属性 说明
Description 对错误进行简单说明的文本消息。
Helpcontext 整数，包含帮助文件中某个主题的上下文标识符。
Helpfile 字符串表达式，包含帮助文件的完全限定路径。
LastDLL 由于调用动态链接库 （DLL） 而产生的系统错误代码。此 DLL 是发生错误之前最后调用的 DLL。
Number 指定错误的数值。
Source 字符串表达式，代表产生错误的对象或应用程序。

　　下面的示例显示了如何在非结构化错误处理中使用上述某些属性： On Error Resume Next
Err.Clear
Err.Raise（33333）
Err.Description = "您没有输入数字！"
MsgBox（Err.Number）
MsgBox（Err.Description）
Msg = "请按 F1 或“帮助”查看 " & Err.HelpFile & " 中有关以下帮助内容的" & _
"主题：" & Err.HelpContext
MsgBox（Msg）

　　On Error GoTo 语句
　　On Error GoTo 语句启用异常处理的某个例程，并指定该例程在此过程中的位置。它使用标签或行号，指出特定异常处理例程在代码中的位置。使用 -1 时，在过程内部禁用错误处理。使用 0 时，禁用当前异常。如果没有 On Error 语句，并且在当前调用堆栈中所有方法均未处理异常，则发生任何运行时错误都将是致命的：执行过程停止并显示错误消息。
　　下表列出了 On Error GoTo 语句可能使用的方法。 语句 任务
On Error Goto -1 将 Err 对象重置为 Nothing，从而在例程中禁用错误处理
On Error Goto 0 将最后的异常处理程序位置重置为 Nothing，从而禁用异常
On Error Goto <标签名> 将指定标签设置为异常处理程序的位置
On Error Resume Next 创建 Resume Next 行为，作为最近的异常处理程序的位置

　　Resume 和 Resume Next
　　Resume 语句本身可以将控制权返回导致异常的语句。执行过程将返回到最初产生异常的那一行。
　　相比较而言，Resume Next 语句将在发生异常后恢复执行过程。该语句指定，在异常事件中，控制权将传递给紧接发生异常语句之后的语句。Resume Next 的使用可允许出现不太严重的失败。引发错误的语句失败，但应用程序将继续执行，且允许用户改正错误并继续进行操作。与此类似，Resume <标签> 将控制权传递给在其 line 参数中指定的标签。确保行标签与调用它的代码位于相同的过程中，因为它不能跨函数使用。
　　Resume 在错误处理例程中必须单独使用。它在这种例程的外部引发错误。　　Error 语句
　　Visual Basic .NET 支持 Error 语句仅仅是为了保持向后兼容。在新代码中，使用 Err 对象的 Raise 方法生成运行时错误。　　非结构化异常处理示例
　　以下示例是非结构化错误处理的一种基本方法。当 FlawlessCode 遇到错误时，执行过程将转移到 Whoops，它为用户提供该错误的有关信息（主要包含在 Err 对象的 Description 属性中的信息）： Private Sub FlawlessCode（）
On Error Goto Whoops
　 ' 代码要做很多事情，不要过多
　 ' 地研究错误处理代码。
　 Return
Whoops:
' 为用户提供错误信息。
　 MsgBox （"意外错误：" & Err.Description）
　 Return
End Sub

　　以下示例显示了如何使用 Err 对象构造错误消息对话框。 Dim ErrorMessage as String
' 如果发生错误则构造错误消息。
On Error Resume Next
Err.Raise （13） ' 生成“类型不匹配”错误。
' 查看是否出现错误。如果是，则显示消息。
If Err.Number <> 0 Then
　　ErrorMessage = "错误 #" & Str（Err.Number） & " 原因是" _
　　　& Err.Source & vbCrLf & Err.Description
' 将该消息显示为关键消息。
　　MsgBox（ErrorMessage, MsgBoxStyle.Critical, "错误"）
End If
　　总结
　　到现在为止，您应该清楚地了解了结构化异常处理和非结构化异常处理之间的区别，以及 Visual Basic .NET 中结构化异常处理功能的优势。通常情况下，结构化异常处理即可满足您的需求，但在少数情况下仍然可能需要使用非结构化异常处理。
　　在确保异常得到处理的同时，不要过多地列举它们，否则会导致性能下降。Try 结构是很有条理的，易于编写且易于阅读，它能生成有效的代码。编写处理一个或多个可能异常的代码时，都应该使用该结构。此方法极其有效，您甚至愿意在正常情况下使用异常来控制逻辑流程。例如，替代 If 或 Select 语句。处理异常是很有效的，但应该到真正发生异常时使用。
　　下表列出了预定义的异常类及其起因和派生类。
表 1 异常类 产生原因 派生类
AppDomainUnloadedException 尝试访问未加载的应用程序域 无
ArgumentException 为方法提供的一个或多个参数无效 ArgumentNullException
ArgumentOutOfRangeException
ComponentModel.InvalidEnum
ArgumentException
DuplicateWaitObjectException
ArithmeticException 在算法、强制类型转换或转换操作上发生错误 DivideByZeroException
NotFiniteNumberException
OverflowException
ArrayTypeMismatchException 尝试在数组中存储错误类型的元素 无
BadImageFormatException DLL 或可执行程序的文件映像无效 无
CannotUnloadAppDomainException 尝试卸载应用程序域失败 无
ComponentModel.Design.Serialization.
CodeDomSerializerException 产生序列化错误的行号信息 无
ComponentModel.LicenseException 无法为组件授予许可证 无
ComponentModel.WarningException 异常被作为警告而不是错误处理 无
Configuration.ConfigurationException 配置设置中发生错误 无
Configuration.Install.InstallException 在安装过程的提交、回滚或卸载阶段发生错误 无
ContextMarshalException 尝试通过上下文范围封送对象失败 无
Data.D