VB高手教我写个计时器

来源：百度知道 编辑：UC知道 时间：2024/05/24 15:38:28
思路这样,程序运行,它就开始计时,用个TEXT显示,显示时,分,秒...就这样,一个FORM,一个TEXT,应该要一个TIMER吧,格式不太会,高手教教我

一个Text,一个Timer控件,粘贴代码即可实现:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Text1.Text = Right(Time, 8)
End Sub

Dim t As string
timer:
t=t+1
form_load:
t=0
text：
Me.text=t

textbox1=format(time,"hh:mm:ss")