Funzione CVErr

Restituisce un valore Variant of subtype Error contenente un numero di errore specificato dall'utente.

Sintassi

CVErr(numeroerrore)

L'argomento numeroerroreobbligatorio è qualsiasi numero di errore valido.

Osservazioni

Utilizzare la funzione CVErr per creare errori definiti dall'utente nelle procedure create dall'utente. Ad esempio, se si crea una funzione che accetta diversi argomenti e in genere restituisce una stringa, è possibile fare in modo che la funzione valuti gli argomenti di input per assicurarsi che siano compresi nell'intervallo accettabile. In caso contrario, è probabile che la funzione non restituisca quello che ti aspetti. In questo caso , CVErr consente di restituire un numero di errore che indica l'azione da intraprendere.

Si noti che la conversione implicita di un errore non è consentita. Ad esempio, non è possibile assegnare direttamente il valore restituito di CVErr a una variabile che non è un valore Variant. Tuttavia, è possibile eseguire una conversione esplicita (usando CInt, CDbl e così via) del valore restituito da CVErr e assegnarla a una variabile del tipo di dati appropriato.

Esempio

Questo esempio usa la funzione CVErr per restituire un valore Variant il cui tipo di var è vbError (10). La funzione CalculateDouble definita dall'utente restituisce un errore se l'argomento passato non è un numero. È possibile usare CVErr per restituire gli errori definiti dall'utente dalle procedure definite dall'utente o rinviare la gestione di un errore di runtime. Usare la funzione IsError per verificare se il valore rappresenta un errore.

' 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