主题：文本框中的数字变化
如何实现文本框中的数字随着时间的变化而减小
您所在位置：社区首页 — Visual Basic讨论区 — 文本框中的数字变化
沙发
一江秋水 [专家分：9680] 发布于 2016-03-20 08:14:36
这是个倒计时的问题。窗体上还要添加一个计时器，
Option Explicit
Dim d As Long
Private Sub Form_Load()
Timer1.Interval = 1000 '设置为每秒变化一次
d = 60 '设置初始时间上限为60秒
End Sub
Private Sub Timer1_Timer()
d = d - 1: If d < 0 Then d = 60
Text1 = Format(d, "00")
End Sub
您尚未登录，请登录后再回复。点此登录或注册
