vba 窗体计时器 出现类型错误

       窗体中有一个标签控件 Me!LNum.Caption,其控件标题 Me!LNum.Caption,用来显示时间,如果 Me!LNum.Caption起初被赋值了字符串,而不是 Me!LNum.Caption=0(零),数值,就会造成题目中提到的类型错误。 

Option Compare Database
Dim flag As Boolean                      '标记标量,用于存储按钮的单击动作
Private Sub bOK_Click()                    '按钮单击事件
    flag = Not flag
End Sub

Private Sub Form_Open(Cancel As Integer)     '窗体打开事件
    flag = True                       '设置窗体打开时标记变量的初始状态为True
End Sub

Private Sub Form_Timer()                    '计时器触发事件
    If flag = True Then                    '根据标记变量决定是否进行屏幕更新
        Me!LNum.Caption = CLng(Me!LNum.Caption) + 1  '标签更新
    End If
End Sub
 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值