VB中timer控件的用法

给你一段代码：

新建一个工程，放上三个textbox,一个commandbutton,一个timer
timer的Interval设置为500.
代码如下。
Option Explicit
Dim T1 As Date, T2 As Date

Private Sub Command1_Click()
T2 = Time()
Text2 = T2

Timer1.Enabled = False
End Sub

Private Sub Form_Load()
T1 = Time()
Text1 = T1
End Sub

Private Sub Timer1_Timer()
Dim hh As Long
Dim mm As Long
Dim ss As Long
Dim mTs As Date
mTs = Time()
hh = DateDiff("h", T1, mTs)
mm = DateDiff("n", T1, mTs)
ss = DateDiff("s", T1, mTs)
'mTs = T1
'mTs = DateAdd("h", hh, T1)
'mTs = DateAdd("m", mm, T1)
'mTs = DateAdd("s", ss, T1)
Text3 = Format(hh & ":" & mm & ":" & ss, "hh:mm:ss")
End Sub

interval表示每次激活timer事件的时间间隔
然后你在timer里写你每次要执行的内容就ok啦

不会的话发邮件给我 我给你详