回 帖 发 新 帖 刷新版面

主题:文本框中的数字变化

如何实现文本框中的数字随着时间的变化而减小

回复列表 (共2个回复)

沙发

这是个倒计时的问题。窗体上还要添加一个计时器,

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

板凳

秋水老师棒棒的。

我来回复

您尚未登录,请登录后再回复。点此登录或注册