扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:佚名 来源:Microsoft 2007年11月10日
关键字:
非结构化异常处理通过 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 NextErr.Clear Err.Raise (33333)Err.Description = "您没有输入数字!"MsgBox( Err.Number )MsgBox( Err.Description )Msg = "请按 F1 或“帮助”查看 " & Err.HelpFile & " 中有关以下帮助内容的" & _"主题:" & Err.HelpContext MsgBox(Msg) |
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 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 ThenErrorMessage = "错误 #" & Str( Err.Number ) & " 原因是" _& Err.Source & vbCrLf & Err.Description ' 将该消息显示为关键消息。 MsgBox(ErrorMessage, MsgBoxStyle.Critical, "错误") End If |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者