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

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

我需要在取点过程中 输入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

已经弄号了，谢谢哦！
页: [1]
查看完整版本: [求助][VBA]请教各位高手！如何获取键输入？？？