Comment faire pour utiliser le script contrôle Error, objet

Traductions disponibles Traductions disponibles
Numéro d'article: 184742 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article décrit le script de contrôler les propriétés de l'objet Error et fournit un exemple de code qui illustre son utilisation.

Plus d'informations

Le contrôle de script objet Error fournit des informations riches pour l'application ordinateur hôte concernant les erreurs de script. Les propriétés suivantes sont prises en charge :
   Property         Description
   -----------------------------------------------------------------
   Number           Error number.
   Description      Error message.
   Line             The line number the error occurred on (1 based).
   Column           The column number the error occurred on (0 based).
   Text*            The text of the line that caused the error.
   Source**         What component caused the error.
   HelpFile***      Help file name provided by the error source.
   HelpContext***   Help context provided by the error source.
				

* La propriété Text est vide pour les erreurs d'exécution, mais contient des données pour les erreurs de compilation.

** La propriété source pour VBScript est Erreur de compilation Microsoft VBScript ou erreur d'exécution Microsoft VBScript. Si un autre langage de script est utilisé, la source peut être différente.

*** Les propriétés HelpFile et HelpContext sont vides à l'exception des erreurs utilisateur déclenché.

IMPORTANT : Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite, y compris, sans que cela soit limitatif, les garanties implicites de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures.

Exemple pas à pas

  1. Dans Visual Basic, créez un nouveau projet (Form1 est créé par défaut).
  2. Cliquez sur composants dans le menu projet et puis activez la case à cocher «Contrôle Microsoft Script 1.0».
  3. Ajoutez le contrôle de script (ScriptControl1), une zone de texte (Texte1) et un bouton de commande (Command1) à Form1. Définissez la propriété MultiLine de la zone de texte sur TRUE. Dans un souci de simplicité d'utilisation, modifier la taille de Texte1 afin qu'il prend en charge 5 lignes avec 60 caractères.
  4. Ajoutez le code suivant à Form1 :
          Private Sub Command1_Click()
            On Error Resume Next
            With ScriptControl1
              .Language = "VBScript"
              .AllowUI = True
              .AddCode Text1.Text
              .Run "Test"
            End With
            If Err Then
              MsgBox Err & " " & Error
              ListErrors ScriptControl1
            End If
          End Sub
    
          Private Sub ListErrors(S As ScriptControl)
            With S.Error
              Debug.Print "Number:", .Number
              Debug.Print "Source:", .Source
              Debug.Print "Desc:", .Description
              Debug.Print "Line: " & .Line, "Column: " & .Column
              Debug.Print "Text:", .Text
              Debug.Print "Help File:", .HelpFile
              Debug.Print "Help Context:", .HelpContext
              Debug.Print
            End With
          End Sub
    
    						
  5. Exécutez Form1 et ouvrez la fenêtre Débogage.
  6. Tapez le script suivant dans la zone de texte :
          Sub Test
            MsgBox == "Hello World"
            Err.Raise 555, "Test", "Custom Error", "test.hlp", 5
          End Sub
    
    						
  7. Cliquez sur le bouton de commande. Par conséquent, l'erreur suivante s'affiche dans la fenêtre de débogage (la sortie réelle peut varier en fonction de la version du contrôle de script que vous utilisez):
          Number:       1002
          Source:       Microsoft VBScript compilation error
          Desc:         Syntax error
          Line: 2       Column: 16
          Text:         MsgBox == "Hello World"
          Help File:
    
          Help Context:  0
    
    						
  8. Supprimer le == à partir de la ligne MsgBox, puis cliquez à nouveau sur le bouton de commande.
  9. La boîte de messages apparaît et puis d'erreur «555 Custom Error». La fenêtre débogage affiche les éléments suivants :
          Number:       555
          Source:       Test
          Desc:         Custom Error
          Line: 3       Column: 8
          Text:
          Help File:    test.hlp
          Help Context: 5
    
    						
    Remarque : le nombre de colonnes peut varier en fonction de si vous vous couper-coller le code ou tapez-le dans manuellement sans tous les espaces de tête.

Références

Contrôle de rubrique d'aide de script : objet Error

Pour plus d'informations sur la façon d'obtenir le contrôle de script, consultez l'article suivant dans la base de connaissances Microsoft :
184739 : INFO : WHERE obtenir le contrôle de script

(c) 1998 Microsoft Corporation, tous droits réservés. Contribution de Malcolm Stewart, Microsoft Corporation

Propriétés

Numéro d'article: 184742 - Dernière mise à jour: mardi 13 juillet 2004 - Version: 3.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 5.0 Édition initiation
  • Microsoft Visual Basic 6.0 Édition initiation
  • Microsoft Visual Basic 5.0 Édition professionnelle
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Édition Standard
  • Microsoft Visual Basic 4.0 Édition professionnelle
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic for Applications 5.0
Mots-clés : 
kbmt kbgrpdsvb kbhowto kbscript kbvbp KB184742 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 184742
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com