Err, objet (Visual Basic)

Article
09/12/2008

Mise à jour : novembre 2007

Contient des informations sur les erreurs d'exécution.

Notes

Les propriétés de l'objet Err sont définies par le générateur d'une erreur (Visual Basic, un objet ou le programmeur).

Lorsqu'une erreur d'exécution se produit, les propriétés de l'objet Err sont complétées par des informations qui identifient l'erreur de manière unique et que vous pouvez utiliser pour en savoir plus à son sujet. Pour générer une erreur d'exécution dans votre code, utilisez la méthode Raise.

Les propriétés de l'objet Err sont réinitialisées à zéro ou à des chaînes de longueur nulle ("") après une instruction Exit Sub, Exit Function, Exit Property ou Resume Next dans une routine de gestion des erreurs. L'utilisation d'un formulaire de l'instruction Resume en dehors d'une routine de gestion des erreurs ne réinitialisera pas les propriétés de l'objet Err. Vous pouvez utiliser la méthode Clear pour réinitialiser explicitement Err.

Utilisez la méthode Raise plutôt que l'instruction Error pour générer des erreurs d'exécution pour les erreurs système et les modules de classe. L'utilisation de la méthode Raise dans un autre code dépend de la richesse des informations que vous souhaitez retourner.

L'objet Err est un objet intrinsèque avec une portée globale. Vous ne devez donc pas créer d'instance de cet objet dans votre code.

Remarque :
Vous pouvez également utiliser ErrorToString, fonction pour rechercher le message d'erreur qui correspond à un numéro d'erreur particulier.

Exemple

Cet exemple utilise les propriétés de l'objet Err pour construire une boîte de dialogue de message d'erreur. Notez que si vous utilisez d'abord la méthode Clear, les valeurs par défaut de Visual Basic deviennent les propriétés de l'objet Raise lorsque vous générez une erreur Visual Basic avec la méthode Err. La propriété Description retourne une chaîne qui décrit l'erreur.

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