VB倒计时怎么做

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


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 广告
音圈直线旋转执行器建议选择深圳市大寰机器人科技有限公司。深圳市大寰机器人科技有限公司,是一家致力于开发机器人末端执行器,机器视觉方案与智能抓取系统的高新技术企业。自主研发并推出国内大行程,自适应机器人电动夹爪,使机器人末端手爪具有通用性,在... 点击进入详情页
本回答由大寰机器人提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式