怎样取消当前执行的vba?

mikewolf2k · 发表于 2004-1-1 20:50:00

在执行vba程序时,比如在cad上用getpoint选取点时,如果此时按回车或esc,vba就会出错.
怎样才能使按回车或者esc,空格终止当前vba程序的执行而不出错,就像cad中自带的命令那样?
还有vba中有一个窗体,内有multipage,怎样让按esc退出?

efan2000 · 发表于 2004-1-1 20:58:00

搜索一下，GETXXX方法类，可以实现此功能。

my_computer · 发表于 2004-1-2 16:41:00

常用的方法是使用错误处理。
前面一个on Error resume next
err.clear
后面判断一下err.number
如果你问的是如何终止一个陷入死循环的vba程序的话.你可以使用Ctrl+Break

mikewolf2k · 发表于 2004-1-2 18:22:00

vb可以用keypress来实现,可是vba就没有keypress了

efan2000 · 发表于 2004-1-2 21:30:00

keypress只能捕捉窗体上的按键事件，在VBA中也行啊。要捕捉ACAD的按键事件，必须使用API函数来辅助实现。

mikewolf2k · 发表于 2004-1-2 21:46:00

现在vba有一个窗口,要退出程序必须按后上角的X,如果能按ESC就退出的话就更方便了.具体如何实现?

efan2000 · 发表于 2004-1-2 22:03:00

不是不可以，而是焦点的问题，当窗体上有控件时，焦点不会再转移到窗体上，因而就无效了。