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

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:38:34
请问一下，如何在VB的FOR循环语句中采用if语句退出循环，这个if 后面可以采用任何一种方法，如在键盘上按esc或其它任何一种操作。
if 后面如何写呢？如果在键盘上执行esc时退出循环该如何写？是在VB中而不是VB.net

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

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

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