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

sophia506

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

wyj7485

on error resume next

err.clear

.......

if err then ....

......

sophia506

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

sophia506

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

已经弄号了，谢谢哦！