Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Assert 方法

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助