Partager via


Méthode Assert

Suspend de manière conditionnelle l’exécution lorsque booleanexpression retourne False à la ligne sur laquelle la méthode apparaît.

Syntaxe

objet . Assertionbooleanexpression

La syntaxe de la méthode Assert est composée du qualificateur d’objet et de l’argument suivants :

Élément Description
object Obligatoire. Toujours l’objet Debug .
booleanexpression Obligatoire. Expression qui donne la valeur True ou False.

Remarques

Les appels de la méthode Assert fonctionnent uniquement au sein de l’environnement de développement. Lorsque le module est compilé en exécutable, les appels de la méthode sur l’objet Debug sont omis.

Une booleanexpression est toujours évaluée. Par exemple, même si la première partie d’une expression And donne la valeur False, la totalité de l’expression est évaluée.

Exemple

L’exemple suivant montre comment utiliser la méthode Assert. Cet exemple exige un formulaire sur lequel figurent deux contrôles de boutons. Les noms de boutons par défaut sont Command1 et Command2.

Lorsque l’exemple s’exécute, le fait de cliquer sur le bouton Commande1 fait basculer le texte sur le bouton entre 0 et 1. Le fait de cliquer sur Commande2 ne fait rien ou provoque une assertion, en fonction de la valeur affichée sur Command1. L’assertion arrête l’exécution et affiche en surbrillance la dernière instruction exécutée, la ligne Debug.Assert.

Option Explicit
Private blnAssert As Boolean
Private intNumber As Integer

Private Sub Command1_Click()
    blnAssert = Not blnAssert
    intNumber = IIf(intNumber <> 0, 0, 1)
    Command1.Caption = intNumber
End Sub

Private Sub Command2_Click()
    Debug.Assert blnAssert
End Sub

Private Sub Form_Load()
    Command1.Caption = intNumber
    Command2.Caption = "Assert Tester"
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.