Question

CAD编辑语言VBA加入什么代码可以使下面的循环停止退出？

Sub xh()
Dim i As Integer
For i = 1 To 10000
Call xgwz
Next i

End Sub
加入什么代码可以使上述循环在按ESC时停止退出？

Answer 1

在时钟里面监控是大睁亮否按下了esc，如滚宽果按下某个变量值就变了，然后再用if判断值有没有改变，改变了就结早握束。

追问

能否放出更改后的代码？
或者告诉我添加什么即可，因为工作原因接触了VB，但是平常没研究

Answer 2

加when语句。

追问

能否具体说明语句位置 我尝试 老是出错

Answer 3

再加入一个IF语句引导，应该可以吧。

追问

可以列出来吗？
在我上述语句基础上。

追答

Public Function CheckKey(lngKey As Long) As Boolean
Sub xh()
Dim i As Integer
For i = 1 To 10000

If GetAsyncKeyState(lngKey) Then
CheckKey = True
Call xgwz

Else
CheckKey = False
For i = 1 To 10000
Call xgwz
Next i
End If

end sub
End Function
试试上面的看看行不。

追问

GetAsyncKeyState 子过程或函数未定义 这是什么原因