VB倒计时怎么做
1个回答
展开全部
Dim i As Integer
Private Sub Command1_Click() '(计时器开始工作)
Command1.enabled=false'倒计时开始了,此按钮不能再次点击
Timer1.Enabled = True ’开始计时
Timer1.Interval = 1000 ‘一秒一刷新界面
i=60 '要倒计时的时间 ,此例假设为60秒,你可实际更改
End Sub
Private Sub Timer1_Timer()
i = i-1 ’递减
If i > 0 Then
Label1.Caption = "剩余" & i & "秒"
else
label1.caption="时间到"
timer1.enabled=false ‘停止计时
Command1.Enabled = True ’按钮可用
end if
End Sub
张志晨:仅供参考。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
大寰机器人
2024-11-18 广告
2024-11-18 广告
音圈直线旋转执行器建议选择深圳市大寰机器人科技有限公司。深圳市大寰机器人科技有限公司,是一家致力于开发机器人末端执行器,机器视觉方案与智能抓取系统的高新技术企业。自主研发并推出国内大行程,自适应机器人电动夹爪,使机器人末端手爪具有通用性,在...
点击进入详情页
本回答由大寰机器人提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询