循環中getstring方法的退出

yuangw1234

以下getstring在20次的循环中使用，问题如下：

当输入一次后（可能输入的次数不定），以后的19次都必须输入才能结束程序，本人加了以下红色程式，表示在不输入（输入为空）后按Enter键或space键退出程式，此方法能用。现本人想用Esc键退出，而不是"Enter"或“Space”,本人将红色程式改为if vbEsc then end sub为什么不行，请教各位

Public Sub jj()                
For i = 0 To 20
    Dim Tutengjk As String
    Tutengjk = ThisDrawing.Utility.GetString(False, "Please input the layer you want to add  :")
    If Tutengjk = "" Then
    Exit Sub
    End If

next
End sub

雪山飞狐_lzh

按下Esc键会触发错误，

yuangw1234

斑竹有没有方法

yuangw1234

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

yuangw1234

搞定了，加了一句

if err then

end

end if

谢谢斑主