共用方式為


Assert 方法

booleanexpression 在方法出現的行傳回 False 時,有條件地暫停執行。

語法

物件Assertbooleanexpression

Assert方法語法具有下列物件辨識符號和引數:

部分 描述
物件 此為必要動作。 一律為 Debug 物件。
booleanexpression 此為必要動作。 評估為TrueFalse 的表達式。

註解

判斷 提示調用只能在 開發環境中運作。 當 模組 編譯成可執行檔時,會省略 Debug 物件上的方法呼叫。

一律會評估所有 布林值運算式 。 例如,即使 And 運算式的第一個部分評估為 False,也會評估整個運算式。

範例

下列範例示範如何使用 Assert 方法。 此範例需要具有兩個按鈕控制項的表單。 預設按鈕名稱為 Command1Command2

當範例執行時,按一下 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

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應