Функция ErrorToString

Статья
11/05/2008

Обновлен: Ноябрь 2007

Возвращает сообщение об ошибке, соответствующее данному номеру ошибки.

Public Shared Function ErrorToString(ByVal ErrorNumber As Integer) As String

Параметры

ErrorNumber
Необязательно. Какой-либо допустимый номер ошибки.

Исключения

Тип исключения	Номер ошибки	Условие
ArgumentException	5	ErrorNumber выходит за пределы допустимого диапазона.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует изменить такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.

Заметки

В функции ErrorToString проверяются параметры свойства объекта Err для определения самой последней ошибки времени выполнения. Значение, возвращаемое функцией ErrorToString, соответствует свойству Description объекта Err. Если ErrorNumber является допустимым номером ошибки, но этот номер не определен, ErrorToString возвращает строку "Application-defined or object-defined error." Если ErrorNumber не является допустимым, появляется ошибка. Если ErrorNumber опущен, то возвращается сообщение, соответствующее самой последней ошибке времени выполнения. Если во время выполнения не произошла ошибка или ErrorNumber равен 0, то ErrorToString возвращает пустую строку ("").

В Visual Basic 6.0 или более ранней версии эти операции выполнялись с помощью функции Error.

Пример

В приведенном ниже примере кода функция ErrorToString используется для отображения сообщений об ошибках, соответствующих указанным номерам ошибок.

Dim ErrorNumber As Integer
For ErrorNumber = 61 To 64   ' Loop through values 61 - 64.
   MsgBox(ErrorToString(ErrorNumber))   ' Display error names in message box.
Next ErrorNumber