Question

VB中，如何用定时器控制一个循环结构呢？也就是说当循环超过了设定的时间还没完成时，定时器就把它给结...

VB中，如何用定时器控制一个循环结构呢？也就是说当循环超过了设定的时间还没完成时，定时器就把它给结束掉。

Answer 1

很简单啊.
循环每进行一次前,检测某变量是否为真,如果为真就循环,如果不为真就退出循环.
计时器就检测是否时间到了,如果到了,就把那个变量为假,否则为真.
以上为思路.

Option Explicit
Dim Swtich As Boolean, Index As Byte'定义一个开关变量,及计时变量

Private Sub Command1_Click()
Do While Swtich = True'这里检测开关,开关由定时器控制
'这里写你要循环的代码

End Sub

Private Sub Form_Load()
Timer1.Interval = 1000'计时器以秒为单位进行检测;
End Sub

Private Sub Timer1_Timer()
If Index = 10 Then'这里是10秒为计时,也就是说,计时10S后,开关关掉.
Timer1.Enabled = False
Swtich = False
Else
Index = Index + 1
End If
End Sub

Answer 2

用一个标记变量，定时器如果时间到了就把那个变量的值改为某个值，比如1(数型)，或者True(布尔型)，事先要给这个变量赋值为非1，或者False。
循环中有判断这个标记变量的值，如果是1或者True就退出循环。