Question

VB现有command1 timer1 text1点击command1使text1计时 代码

Answer 1

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Long
i = i + 1
Text1.Text = Format(i / 10!, "########0.0")

End Sub

Answer 2

Private Sub Command1_Click()
Text1 = "00:00:00"
Timer1.Interval = 1000 '每秒执行一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1 = DateAdd("s", 1, CDate(Text1))
End Sub