[求助][VBA]请教各位高手！如何获取键输入？？？

sophia506 · 发表于 2006-11-6 11:58:00

我需要在取点过程中输入ENTER或鼠标右键结束取点。
怎样获取并判断输入的是ENTER或鼠标右键啊？？？
我已经找了很久了，还没有找到方法。请各位高手指点一下！万分感谢！！！

wyj7485 · 发表于 2006-11-6 12:00:00

on error resume next
err.clear
.......
if err then ....
......

sophia506 · 发表于 2006-11-6 14:55:00

怎么用啊，还是不太清楚呀。我刚学这个东西。
能不能详细一点呀？

sophia506 · 发表于 2006-11-6 15:01:00

i=3
Do
ReDim Preserve fitpoints(i + 2)
ptpick = ThisDrawing.Utility.GetPoint(, "下一点")
fitpoints(i + 0) = ptpick(0)
fitpoints(i + 1) = ptpick(1)
fitpoints(i + 2) = ptpick(2)
i = i + 3
Loop
这是我取点循环

sophia506 · 发表于 2006-11-6 16:57:00

已经弄号了，谢谢哦！

[求助][VBA]请教各位高手！如何获取键输入？？？

发表回复

精选推荐