Забележка: Бихме искали да ви осигурим най-новото помощно съдържание възможно най-бързо на вашия собствен език. Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас, в дъното на тази страница? Ето статията на английски за бърза справка.
Връща вариант на subtype грешка , която съдържа номер на грешка , зададени от потребителя.
Синтаксис
CVErr () errornumber )
Необходими errornumberаргумент е валиден грешка число.
Забележки
Използвайте функцията CVErr за създаване на дефинирани от потребителя грешки в създадено процедури. Например ако създавате функция, която приема няколко аргументи и обикновено Връща низ, можете да имате си функция, се оценяват входни аргументи за да гарантирате, че те са в рамките на приемливи граници. Ако те не са, има вероятност ви функция няма да се върне това, което очаквате. В този случай CVErr ви позволява да върнете номер на грешка, което ви казва какви действия да предприеме.
Обърнете внимание, че не е разрешено неявно преобразуване на грешка . Например не можете директно да давате върнатата стойност на CVErr към променлива , който не е вариант. Въпреки това можете да извършите явно преобразуване (чрез CInt, CDblи т.н.) на стойността, върната от CVErr и, присвояване на променлива от съответните тип данни.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко израза в полето за търсене.
Този пример използва функцията CVErr да върне Variant чиито VarType е vbError (10). Дефинирани от потребителя функция CalculateDouble връща грешка, ако аргументът премина към него не е число. Можете да използвате CVErr , за да се върнете на дефинирани от потребителя грешки от дефинирани от потребителя процедури или да се отложи боравене с грешка по време на изпълнение. Използвайте функцията IsError за проверка дали стойността представлява грешка.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
