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-11 广告
2024-11-11 广告
甘特图工具是一种直观展示项目时间与进度管理的有效手段。在深圳云诺互联科技有限公司,我们常利用甘特图来规划项目阶段、任务分配及预计完成时间。通过清晰的时间轴和任务条,团队成员能迅速了解项目全局,把握关键节点。甘特图还具备任务依赖关系设置、进度...
点击进入详情页
本回答由深圳云诺科技提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询