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

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

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

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

<P>on error resume next</P>
<P>err.clear</P>
<P>.......</P>
<P>if err then ....</P>
<P>......</P>

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

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

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

<P>i=3<BR>Do<BR>&nbsp;&nbsp;&nbsp; ReDim Preserve fitpoints(i + 2)<BR>&nbsp;&nbsp;&nbsp; ptpick = ThisDrawing.Utility.GetPoint(, "下一点")<BR>&nbsp;&nbsp;&nbsp; fitpoints(i + 0) = ptpick(0)<BR>&nbsp;&nbsp;&nbsp; fitpoints(i + 1) = ptpick(1)<BR>&nbsp;&nbsp;&nbsp; fitpoints(i + 2) = ptpick(2)<BR>&nbsp;&nbsp;&nbsp; i = i + 3&nbsp;<BR>Loop</P>
<P>这是我取点循环</P>

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

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