社区 › VBA/VB/ActiveX/API 编程技术 › VB FOR循环如何实现按ESC退出循环？

水落黄泉 发表于 2014-12-4 13:42:11

VB FOR循环如何实现按ESC退出循环？

Sub xh()
Dim i As Integer
For i = 1 To 100
Call xgwz
Next i
End Sub
这个宏（无窗体）应该修改成怎样才可以实现在循环中按ESC退出循环？

wwswwswws 发表于 2014-12-10 10:49:18

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

Private Const VK_ESCAPE = &H1B
Private Const VK_RButton = &H2


GetAsyncKeyState VK_ESCAPE             '判断前先调用一次
Do

   If CheckKey(VK_ESCAPE) = True Then   '如果按下了ESC键或鼠标右键，则退出

       Exit Sub
   End If

'此处处理你的事情的代码

   If CheckKey(VK_ESCAPE) Then   '如果按下了ESC键或鼠标右键，则退出

       Exit Sub
   End If

Loop

查看完整版本: VB FOR循环如何实现按ESC退出循环？