029集—CAD VBA识别“Esc”退出键——vba代码实现

山水CAD筑梦人

已于 2024-08-26 20:46:22 修改

阅读量568

点赞数 2

分类专栏： CAD VBA 文章标签： cad

于 2024-08-26 20:44:53 首次发布

本文链接：https://blog.csdn.net/yongshiqq/article/details/141572849

版权

vba程序运行时我们想按下“Esc”键时退出程序或做出进一步相应，

此时可借助windows API函数实现。

见下图：

部分代码如下：


#If VBA7 Then
  ' 64位系统声明
  Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
  ' 32位系统声明
  Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
#If VBA7 Then
    ' 64位系统声明
    Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
    ' 32位系统声明
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If

Sub ExitLoopOnESC()
'yngqq443440204@2024年8月26日20:40:53
    Dim escapePressed As Boolean
    escapePressed = False
   
    ' 启动循环
    Do