Assert 方法

来源:www.accessoft.com 点击数:2501 　 | 收藏 | 复制

时　间:2021-12-24 19:56:01
作　者:杨雪 ID：42182 城市：南京
摘　要:当 boolean expression 在出现该方法的行上返回 False 时，有条件地暂停执行。
正　文:

语法:

对象。Assert boolean expression

Assert 方法的语法具有以下对象限定符和参数：

语法:

Part 说明

object 必填。始终为 Debug 对象。

boolean expression 必填。一个计算结果为 True 或 False 的表达式。

备注:

Assert 调用只能在开发环境中使用。当模块编译为可执行文件时，对 Debug 对象的方法调用将被省略。

始终会计算所有 boolean expression。例如，即使 And 表达式的第一部分计算结果为 False，也将计算整个表达式。

示例:

以下示例显示如何使用 Assert 方法。此示例需要包含两个按钮控件的窗体。默认按钮名称为 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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】