Question

用vb做一个计时器，没有开始暂停，就是在运行窗口的时候自动计时，高赏金

用vb做一个计时器，没有开始暂停，就是在运行窗口的时候自动计时，高赏金

Answer 1

窗体上添加一个标签和一个计时器。朋友。

Dim t%, h%, d%
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.FontSize = 20
End Sub
Private Sub Timer1_Timer()
t = t + 1
s = t Mod 60
m = t \ 60
If m >= 60 Then t = 0: m = 0: h = h + 1
If h >= 24 Then h = 0: d = d + 1
Label1 = d & "天" & h & "时" & m & "分" & s & "秒"
End Sub

Answer 2

窗体添加一个timer，一个label几可

Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Alignment = 2
End Sub
Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i
End Sub