yuangw1234 发表于 2006-5-26 10:51:00

循環中getstring方法的退出

<P>以下getstring在20次的循环中使用，问题如下：</P>
<P>当输入一次后（可能输入的次数不定），以后的19次都必须输入才能结束程序，本人加了以下红色程式，表示在不输入（输入为空）后按Enter键或space键退出程式，此方法能用。现本人想用Esc键退出，而不是"Enter"或“Space”,本人将红色程式改为if vbEsc then end sub为什么不行，请教各位</P>
<P>Public Sub jj()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>For i = 0 To 20<BR>&nbsp;&nbsp;&nbsp; Dim Tutengjk As String<BR>&nbsp;&nbsp;&nbsp; Tutengjk = ThisDrawing.Utility.GetString(False, "Please input the layer you want to add&nbsp; :")<BR>&nbsp;&nbsp;&nbsp; <FONT color=#ff0000>If Tutengjk = "" Then<BR>&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If</FONT></P>
<P>next<BR>End sub</P>

雪山飞狐_lzh 发表于 2006-5-26 15:02:00

按下Esc键会触发错误，

yuangw1234 发表于 2006-5-26 22:04:00

<P>斑竹有没有方法</P>

yuangw1234 发表于 2006-5-27 11:09:00

好吧，将错就错，我用err.number来处理

yuangw1234 发表于 2006-5-27 11:22:00

<P>搞定了，加了一句</P>
<P>if err then</P>
<P>end </P>
<P>end if</P>
<P>谢谢斑主</P>
页: [1]
查看完整版本: 循環中getstring方法的退出