Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция CVErr  
 

Функция

CVErr

Синтаксис

CVErr(expression)

Возвращает значение типа Variant с подтипом Error, содержащее код ошибки, указанный пользователем.

Параметры

Наименование

Описание

Expression

Обязательный. Любое допустимое числовое выражение.

Замечания

Функция CVErr применяется для создания ошибок, определяемых пользователем, в создаваемых пользователем процедурах. Например, при создании функции, которая принимает несколько аргументов и обычно возвращает строку, имеется возможность проверить, что введенные аргументы попадают в допустимый диапазон значений. Если это не так, весьма вероятно, что функция не вернет ожидаемое значение. В этом случае функция CVErr позволяет вернуть код ошибки, чтобы знать, какие действия необходимо предпринять.
Следует отметить, что неявное преобразование значения Error не допускается. Например, не допускается прямое присвоение возвращаемого значения CVErr переменной с типом, отличным от Variant. Однако имеется возможность выполнить явное преобразование (с помощью CInt, CDbl и т.п.) значения, возвращаемого CVErr, и присвоить это значение переменной с соответствующим типом данных.

Пример использования

'в данном примере функция CVErr возвращает значение типа Variant,
'которому соответствует VarType (подтип) vbError (10), определенная
'пользователем функция CalculateDouble возвращает ошибку, если ей
'передан нечисловой аргумент, функцию CVErr можно использовать
'для возврата кодов ошибок, определенных пользователем, из процедур,
'также определенных пользователем, или отложенной обработки ошибок,
'обнаруженных на стадии выполнения, с помощью функции IsError можно
'проверить, является ли значение ошибкой


'вызывает CalculateDouble с недопустимым аргументом
Sub Test()
  Debug.Print CalculateDouble("345.45роберт")
End Sub

'описывает процедуру Function CalculateDouble
Function CalculateDouble(Number)
  If IsNumeric(Number) Then
    CalculateDouble = Number * 2 'возвращает результат
  Else
    CalculateDouble = CVErr(2001) 'возвращает код ошибки,
  End If 'определенный пользователем
End Function

Дополнительная информация

Категория: Системные функции

Еще функции: Command, CVErr, DoEvents, Environ, Error, GetAllSettings, GetSetting, IMEStatus, Shell

 
     
  VBNet online (всего: 51605)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам