Err 对象 (Visual Basic)

项目
08/18/2008

更新：2007 年 11 月

包含与运行时错误相关的信息。

备注

Err 对象的属性是由错误的生成者（Visual Basic、某个对象或程序员）设置的。

发生运行时错误时，Err 对象的属性中填充唯一标识该错误的信息以及可用于处理该错误或更多地了解该错误的信息。若要在代码中生成运行时错误，请使用 Raise 方法。

在错误处理例程中的 Exit Sub、Exit Function、Exit Property 或 Resume Next 语句之后，Err 对象的属性被重置为 0 或长度为零的字符串 ("")。在错误处理例程的外部使用任何形式的 Resume 语句都不会重置 Err 对象的属性。但可使用 Clear 方法显式地重置 Err。

使用 Raise 方法（而不是 Error 语句）生成系统错误和类模块的运行时错误。是否要在其他代码中使用 Raise 方法取决于您需要返回的信息的多少。

Err 对象是一个具有全局作用范围的内部对象。因此，不需要在代码中创建其实例。

说明：
还可以使用 ErrorToString 函数查找对应特定错误号的错误消息。

示例

本示例在构建错误消息对话框时使用了 Err 对象的属性。请注意，如果首先使用 Clear 方法，则使用 Raise 方法生成 Visual Basic 错误时，Visual Basic 的默认值将成为 Err 对象的属性。Description 属性返回描述该错误的字符串。

Dim Msg As String
' If an error occurs, construct an error message.
On Error Resume Next   ' Defer error handling.
Err.Clear()
Err.Raise(6)   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
  Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
  MsgBox(Msg, MsgBoxStyle.Information, "Error")
End If