Question

如何在VB中退出循环程序？

请问一下，如何在VB的FOR循环语句中采用if语句退出循环，这个if 后面可以采用任何一种方法，如在键盘上按esc或其它任何一种操作。
if 后面如何写呢？如果在键盘上执行esc时退出循环该如何写？是在VB中而不是VB.net

Answer 1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Command1_Click()
For i = 0 To 100
i = i - 1
r = GetAsyncKeyState(vbKeyEscape)
If r <> 0 Then exit for
Next

End Sub

Answer 2

Dim bStop As Boolean
Private Sub Command1_Click()
bStop= False
Do
DoEvents '暂时释放CPU时间 执行其他代码
If bStop=Ture Then goto kk
Loop
kk:
End Sub
Private Sub Command2_Click()
bStop=Ture
End Sub

Answer 3

vb? 还是vb.net?
vb.net 支持线程。可以通过线程来执行长时间的任务，增加人机交互性，用户能在任务执行过程中取消任务。还能避免出现“程序没有相应”的问题发生。