Number 属性（Err 对象）

项目
08/18/2008

更新：2007 年 11 月

获取或设置指定错误的数值。读/写。

Public Property Number() As Integer

备注

从对象返回用户定义的错误时，通过将作为错误代码选定的数字添加到 VbObjectError 常数以设置 Err.Number。例如，使用下列代码返回数字 1051 作为错误代码：

Err.Raise(Number:=vbObjectError + 1051, Source:="SomeClass")

示例

本示例演示错误处理例程中 Number 属性的典型用法。示例中还使用了 Description 属性以提供对错误的说明。

' Typical use of Number property.
Sub test()
  On Error GoTo out

  Dim x, y As Integer
  x = 1 / y   ' Create division by zero error.
  Exit Sub
out:
  MsgBox(Err.Number)
  MsgBox(Err.Description)
  ' Check for division by zero error.
  If Err.Number = 11 Then
      y = y + 1
  End If
  Resume Next
End Sub