ErrObject.Number Свойство

Определение

Пространство имен:

Microsoft.VisualBasic

Сборка:

Microsoft.VisualBasic.Core.dll

Исходный код:

ErrObject.vb

Возвращает или задает численное значение, определяющее ошибку. Read/write.

public:
 property int Number { int get(); void set(int value); };

public int Number { get; set; }

member this.Number : int with get, set

Public Property Number As Integer

Значение свойства

Int32

Возвращает или задает численное значение, определяющее ошибку. Read/write.

Исключения

ArgumentException

Number больше 65535.

Примеры

В этом примере показано типичное Number использование свойства в подпрограмме обработки ошибок.

    ' 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

В этом примере метод объекта Raise используется Err для создания исходной ошибки в функции, написанной на языке Visual Basic. Вызывающая функция может перехватывать ошибку и сообщать о ней пользователю. Обратите внимание, что процедура CallingProcedure сравнивает тип сведений, которые можно получить от Err объекта, со сведениями, которые можно получить от Exception объекта.

Module Module1

    Const WidthErrorNumber As Integer = 1000
    Const WidthHelpOffset As Object = 100

    Sub Main()
        CallingProcedure()
    End Sub

    Sub TestWidth(ByVal width As Integer)
        If width > 1000 Then
            ' Replace HelpFile.hlp with the full path to an appropriate
            ' help file for the error. Notice that you add the error 
            ' number you want to use to the vbObjectError constant. 
            ' This assures that it will not conflict with a Visual
            ' Basic error.
            Err.Raise(vbObjectError + WidthErrorNumber, "ConsoleApplication1.Module1.TestWidth", 
                "Width must be less than 1000.", "HelpFile.hlp", WidthHelpOffset)
        End If
    End Sub

    Sub CallingProcedure()
        Try
            ' The error is raised in TestWidth.
            TestWidth(2000)
        Catch ex As Exception
            ' The Err object can access a number of pieces of
            ' information about the error.
            Console.WriteLine("Information available from Err object:")
            Console.WriteLine(Err.Number)
            Console.WriteLine(Err.Description)
            Console.WriteLine(Err.Source)
            Console.WriteLine(Err.HelpFile)
            Console.WriteLine(Err.HelpContext)
            Console.WriteLine(Err.GetException)

            Console.WriteLine(vbCrLf & "Information available from Exception object:")
            Console.WriteLine(ex.Message)
            Console.WriteLine(ex.ToString)

            Err.Clear()
        End Try
    End Sub
End Module

' The example produces the following output:
' Information available from Err object:
' -2147220504
' Width must be less than 1000.
' ConsoleApplication1.Module1.TestWidth
' HelpFile.hlp
' 100
' System.Exception: Width must be less than 1000.
'    at Microsoft.VisualBasic.ErrObject.Raise(Int32 Number, Object Source, Object
' Description, Object HelpFile, Object HelpContext)
'    at ConsoleApplication1.Module1.TestWidth(Int32 width) in C:\Users\example\App
' Data\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 17
'    at ConsoleApplication1.Module1.CallingProcedure() in C:\Users\example\AppData
' \Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 25
'
' Information available from Exception object:
' Width must be less than 1000.
' System.Exception: Width must be less than 1000.
'    at Microsoft.VisualBasic.ErrObject.Raise(Int32 Number, Object Source, Object
' Description, Object HelpFile, Object HelpContext)
'    at ConsoleApplication1.Module1.TestWidth(Int32 width) in C:\Users\example\App
' Data\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 17
'    at ConsoleApplication1.Module1.CallingProcedure() in C:\Users\example\AppData
' \Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 25

Комментарии

Все аргументы, Raise кроме Number , являются необязательными. Если опустить необязательные аргументы, а параметры Err свойств объекта содержат значения, которые не были удалены, эти значения будут использоваться в качестве значений для ошибки.

Err Так как объект предоставляет более подробные сведения, чем при создании ошибок с помощью инструкции Error , Raise он полезен для создания ошибок при написании модулей класса. Например, с помощью Raise метода можно указать источник, создающий ошибку, в свойстве Source , на веб-справку по ошибке можно ссылаться и т. д.

При возврате определяемой пользователем ошибки из объекта задайте Err.Number , добавив к константе число, выбранное VbObjectError в качестве кода ошибки. Например, следующий код используется для возврата числа 1051 в качестве кода ошибки:

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

См. также раздел

• Err()
• ErrorToString()