Assert-Methode
Hält die Ausführung bedingt an, wenn booleanexpression in der Zeile, in der die Methode angezeigt wird, False zurückgibt.
Syntax
-Objekt.Assertbooleanexpression
Die Syntax der Assert-Methode weist den folgenden Objektkennzeichner und das folgende Argument auf:
Bestandteil | Beschreibung |
---|---|
Objekt | Erforderlich. Immer das Debug-Objekt . |
Boolescher Ausdruck | Erforderlich. Ein Ausdruck, der als True oder False ausgewertet wird. |
Hinweise
Assert-Aufrufe funktionieren nur innerhalb der Entwicklungsumgebung. Wenn das Modul in eine ausführbare Datei kompiliert wird, werden Methodenaufrufe des Debug-Objekts nicht eingeschlossen.
Der gesamte Ausdruck booleanexpression wird immer ausgewertet. Wenn beispielsweise der erste Teil eines And-Ausdrucks bereits False ergibt, wird trotzdem der gesamte Ausdruck ausgewertet.
Beispiel
Mit dem folgenden Beispiel wird gezeigt, wie die Assert -Methode verwendet wird. Für das Beispiel ist ein Formular mit zwei Schaltflächen-Steuerelementen erforderlich. Die Standardnamen der Schaltflächen sind Command1 und Command2.
Wenn das Beispiel ausgeführt wird, wird durch Klicken auf die Schaltfläche Befehl1 der Text auf der Schaltfläche zwischen 0 und 1 umgeschaltet. Wenn Sie auf Befehl2 klicken, geschieht entweder nichts, oder es wird eine Assertion ausgelöst, je nachdem, welchen Wert in Command1 angezeigt wird. Die Assertion bricht die Ausführung ab, wobei die letzte ausgeführte Anweisung, die Zeile mit "Debug.Assert" hervorgehoben wird.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.