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

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, "错误"）