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-10-22 广告
2024-10-22 广告
百事牛是共享提供商,我们提供可靠有效的服务,适当合理的授权费有利于的继续更新优化。同样的事情,同样的方法,百事牛团队十年磨一剑,始终至聚焦在密码恢复领域,深耕于此,我们已研制出有别于其他公司的算法和运算模式, 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询