我要发布
仪器网/ 仪器社区/ 计时器/ 急急急,vb:编写器

急急急,vb:编写器

爱易昕8    2011-06-13    计时器    浏览 356 次

要求:单击“开始”按钮,标签中的数字为60,每隔一秒减1,当标签中的数字为0时,则停止减1,标签中显示“时间到”

精彩问答
ozhengshun 发布日期:2017-10-06
窗口放一个Label,一个Time,一个按钮,代码如下
Private Sub Command1_Click()
Label1.Caption = "60"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

If Val(Label1.Caption) = 0 Then
Label1.Caption = "time off"
Timer1.Enabled = False
Else
Label1.Caption = CStr(Val(Label1.Caption) - 1)
End If

End Sub
全部评论
冰旭冰旭冰 发布日期:2011-06-14
你用timer空间通过得到这个目的, timer空间的500设等于一秒, 你算这个单位, 写代码可以了
最新主题
相关版块
我要评论
X您尚未登录
账号登录
X您尚未登录
手机动态密码登录
X您尚未登录
扫码登录
官方微信

仪器网微信服务号

扫码获取最新信息


仪器网官方订阅号

扫码获取最新信息

在线客服

咨询客服

在线客服
工作日:  9:00-18:00
联系客服 企业专属客服
电话客服:  400-822-6768
工作日:  9:00-18:00
订阅商机

仪采招微信公众号

采购信息一键获取海量商机轻松掌控