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

博客指出窗体中标签控件Me!LNum.Caption若初始赋值为字符串而非数值,会造成类型错误。还给出了按钮单击、窗体打开和计时器触发等事件的代码,如按钮单击改变标记变量状态,窗体打开设置标记变量初始值,计时器触发更新标签内容。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

       窗体中有一个标签控件 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、付费专栏及课程。

余额充值