Assert メソッド

ブール式がメソッドが表示される行で False を返すときに、条件付きで実行を中断します。

構文

オブジェクト。assertbooleanexpression

Assert メソッド構文には、次のオブジェクト修飾子と引数があります。

指定項目	説明
object	必須です。 常に Debug オブジェクト。
booleanexpression	必須です。 True または False のどちらかとして評価される式です。

解説

Assert 呼び出しは、開発環境でのみ動作します。 モジュールが実行可能ファイルにコンパイルされるとき、Debug オブジェクトのメソッド呼び出しは省略されます。

booleanexpression 全体が、必ず評価されます。 たとえば、And 式の最初の部分が False に評価されても、式全体が評価されます。

例

次の例は、Assert メソッドを使用する方法を示しています。 この例では、2 つのボタン コントロールを持つフォームが必要です。 既定のボタン名は Command1 と Command2 です。

この例を実行すると、[ Command1 ] ボタンをクリックすると、ボタンのテキストが 0 から 1 に切り替わります。 Command2 をクリックすると、Command1 に表示される値に応じて、何も実行されないか、アサーションが発生します。 アサーションにより、実行された最後のステートメントで実行が停止し、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

関連項目

• オブジェクト (Visual Basic for Applications)

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。