关于VB的计时器问题

[xn1980216]

我写了一个计时器，目的让他每隔一秒显示一次时间，一共显示3次

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
aaa
End Sub


Private Sub aaa()
Dim i As Integer



For i = 1 To 3

If i = 1 Then
Form1.Timer1.Enabled = True

End If
If i = 2 Then
Form1.Timer1.Enabled = True
End If
If i = 3 Then
Form1.Timer1.Enabled = True
End If
Next i

End Sub


Private Sub Timer1_Timer()

Text1.Text = Time()

Timer1.Enabled = False
End Sub

可是他只显示了最后一次的时间，而前两次并没有时间间隔，请高人指点

[xn1980216]

我想了个本办法，呜呜呜。。。。
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False

Timer2.Interval = 100
Timer2.Enabled = False

Timer3.Interval = 100
Timer3.Enabled = False

Timer4.Interval = 100
Timer4.Enabled = False

Timer5.Interval = 100
Timer5.Enabled = False

Timer6.Interval = 100
Timer6.Enabled = False

Timer7.Interval = 100
Timer7.Enabled = False
aaa
End Sub
Private Sub aaa()
Form1.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()

Text1.Text = 1
Form1.Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Text1.Text = 2
Form1.Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Text1.Text = 3
Form1.Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
Text1.Text = 4
Form1.Timer5.Enabled = True
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer()
Text1.Text = 5
Form1.Timer6.Enabled = True
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer()
Text1.Text = 6
Form1.Timer7.Enabled = True
Timer6.Enabled = False
End Sub

Private Sub Timer7_Timer()
Text1.Text = 7
aaa
Timer7.Enabled = False
End Sub

[贝隆]

飘过~~~~~~~~~~~~~~~~~~~~~~~~~

[skylinecn]

[Quote=引用 4 楼 veron_04 的回复:]
飘过~~~~~~~~~~~~~~~~~~~~~~~~~
[/Quote]

逮到，击落

[贝隆]

[Quote=引用 5 楼 skylinecn 的回复:]
引用 4 楼 veron_04 的回复:
飘过~~~~~~~~~~~~~~~~~~~~~~~~~


逮到，击落
[/Quote]
再飘过~~~~~~~~~~~~~~~~~~~~~~~~~

[world_broken]

。。。设个变量保存显示次数，为什么搞这么复杂？

[毒来独往]

Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If i = 3 Then
Timer1.Enabled = False
Else
Text1.Text = Time()
i = i + 1
Print i

End If

End Sub
才学，可能不大规范。

[chinaboyzyq]

Private Sub Form_Load()
   Timer1.Enabled = False
   Timer1.Interval = 1000
   Text1.Text = Time
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   Static Num As Byte
   Text1.Text = Time
   Num = Num + 1
   If Num = 2 Then
      Timer1.Enabled = False
      Num = 0
   End If
End Sub

[king06]

Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    Static d As Integer
    d = d + 1
    If d = 3 Then Timer1.Enabled = False    
    Text1.Text = Time()
End Sub

[xn1980216]

我郁闷，我一直以为timer只运行一次，没想到只要不为假，他会不断的循环。。。。。。