[求助]：连续选择中途如何退出

isu_152 · 发表于 2006-1-23 11:16:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

刚开始学VBA ,在VBA中用do做了一个循环，选择实体，中途不知道怎么退出，大家给帮一下忙
Check = True
Do
      ThisDrawing.Utility.GetEntity en, point, "请选择一个实体"
      If en.ObjectID = Empty Then
         Check = False
      End If
      ListBox1.AddItem (en.ObjectID)
Loop Until Check = False

雪山飞狐(lzh) · 发表于 2006-1-27 16:25:40

on error resume next
do
...
if err then
exit do
end if

while

macula55 · 发表于 2006-2-12 21:57:08

On Error Resume Next
Check = True
Do
ThisDrawing.Utility.GetEntity en, point, "请选择一个实体"
If err <> 0 Then
err.clear
Check = False
End If
ListBox1.AddItem (en.ObjectID)
err.clear
Loop Until Check = False

账号		自动登录	找回密码
密码			立即注册

[求助]：连续选择中途如何退出

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子