Oggetto Err (Visual Basic)

Articolo
09/12/2008

Aggiornamento: novembre 2007

Contiene informazioni relative a errori di runtime.

Note

Le proprietà dell'oggetto Err vengono impostate in base all'origine dell'errore, ovvero Visual Basic, un oggetto o il programmatore.

Quando si verifica un errore di run-time, alle proprietà dell'oggetto Err vengono aggiunte informazioni che identificano in modo univoco l'errore e ne consentono la gestione o forniscono ulteriori informazioni. Per generare un errore di run-time nel codice, utilizzare il metodo Raise.

Le proprietà dell'oggetto Err vengono reimpostate su zero o su stringhe di lunghezza zero ("") dopo l'esecuzione di un'istruzione Exit Sub, Exit Function, Exit Property o Resume Next in una routine di gestione degli errori. Se si utilizza qualsiasi tipo di istruzione Resume all'esterno di una routine di gestione degli errori, le proprietà dell'oggetto Err non verranno reimpostate. È possibile utilizzare il metodo Clear per reimpostare in modo esplicito Err.

Utilizzare il metodo Raise anziché l'istruzione Error per generare errori di runtime per errori di sistema e moduli di classe. La scelta di utilizzare il metodo Raise in altro codice dipende dalla complessità delle informazioni da restituire.

L'oggetto Err è un oggetto intrinseco con ambito globale. Pertanto, non è necessario crearne un'istanza nel codice.

Nota:
È anche possibile utilizzare Funzione ErrorToString per cercare il messaggio di errore che corrisponde a un particolare numero di errore.

Esempio

In questo esempio vengono utilizzate le proprietà dell'oggetto Err per la costruzione di una finestra di dialogo per i messaggi di errore. Se si utilizza prima il metodo Clear, quando si genera un errore Visual Basic con il metodo Raise, i valori predefiniti di Visual Basic diventano le proprietà dell'oggetto Err. La proprietà Description restituisce una stringa che descrive l'errore.

Dim Msg As String
' If an error occurs, construct an error message.
On Error Resume Next   ' Defer error handling.
Err.Clear()
Err.Raise(6)   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
  Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
  MsgBox(Msg, MsgBoxStyle.Information, "Error")
End If