VB倒计时怎么做

 我来答
大沈他次苹0B
2013-01-25 · TA获得超过7307个赞
知道大有可为答主
回答量:3059
采纳率:100%
帮助的人:175万
展开全部


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

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式