一个简单问题，VBA如何实现按ESC键退出循环？

grado

设计了一个简单的VBA程序，用Do Loop循环从CAD上截取数据输出到EXCEL表格。现在程序已经能用了，就是不知道怎么样用ESC键终止，结果每次都弄成了无限次数的循环。请问应该怎么样实现这个简单的功能呢？

最好设计为“按回车键继续录入，按ESC键终止”

CAD编程的资料不好找，不像EXCEL程序网上到处都是。烦请各位高手了！非常感谢

xjjq2008

天之雨露 发表于 2009-6-23 05:28
DoEvents能实现你要的功能，具体参见以下网址，灵活运用http://www.cnblogs.com/todd/archive/2006/05/10/3 ...

处理按下Esc键
        If objSelect Is Nothing Then
                If CheckKey(&H1B) = True Then
                    Exit Sub
                Else
                    do something
                End If
            End If

月牙湾

加个 if，判断一下esc就可以了。

天之雨露

DoEvents能实现你要的功能，具体参见以下网址，灵活运用

http://www.cnblogs.com/todd/archive/2006/05/10/396095.html

mycad

在end sub 上面一行输入扑捉错误的行标志，如

sub XX（）

on error goto flag:

这里是你的源代码。

flag：

msgbox "你按了ESC键。"

end sub

grado

谢谢楼上的兄弟，不过我的代码里面已经用过了on error resume next语句

有没有捕捉键盘输入的语句呢？

mccad

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70901

grado

mycad发表于2009-6-23 9:19:00在end sub 上面一行输入扑捉错误的行标志，如 sub XX（）on error goto flag:这里是你的源代码。flag：msgbox \"你按了ESC键。\"end sub

这个办法我试过了可以用！谢谢

但我觉得这个方法不够完美，不止是按下ESC键会使程序退出，就是按下回车键、空格键也会退出。

更麻烦的是，我的Do Loop 循环里面有从CAD屏幕选择对象的语句，如果不小心点到了屏幕上空白处，也会导致程序退出。有没有更好的方法呢？

或者说，在屏幕选择的语句里，设置成为“如果不小心点到了屏幕的空白处，则提示用户重新选择一次，而不是直接转到 on error goto flag ”

zzyong00

Option Explicit
'取得键盘上每个虚拟键当前的状态
Private Declare Function GetKeyboardState Lib "user32" _
                (pbKeyState As Byte) As Long
'根据指定的映射类型，执行不同的扫描码和字符转换
Private Declare Function MapVirtualKey Lib "user32" _
                Alias "MapVirtualKeyA" (ByVal wCode As Long, _
                                        ByVal wMapType As Long) As Long
Private Sub Command1_Click()
    Dim i     As Integer
    Dim Key(0 To 255)         As Byte
    Dim KeyCode     As Long
    Do
        DoEvents
        dl& = GetKeyboardState(Key(0))       '获取当前按键状态
        For i = 0 To 254
            If Key(i) And &H80 Then    '如某个键当时按下，则位7为1
                KeyCode& = MapVirtualKey(i, 0)
                If KeyCode = 1 Then Exit Do
            End If
        Next
    Loop
    MsgBox 1
End Sub

znyan

if err.number=-2147352567 then exit do

AirCD

可以判断虚拟键盘状态

yg545france

还有别的好办法吗