Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i >= 120 Then
i = 0
x = x + 1
Open "d:\temp\" & Date & ".txt" For Append As #1
Print #1, x & " " & text1.Text
Close #1
End If
End Sub
=====================
妳自己的代碼
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time()
End Sub
妳有設置timer控件Timer1.Interval = 1000 間隔時間麽?如果沒有那又如何將系統時間賦值給text1控件呢?
還有什麽問題 加我百度HI吧。。直接發個工程給妳。。