社区 › VB › 正确退出？

Bryco 发表于 2008-4-9 17:03:45

正确退出？

如果用户在空间中选择了一个点或者右键单击，如何让这个部分平稳地退出而不被弹出？
Public Sub GetEntExample()
Dim returnObj As AcadObject
    Dim basePnt As Variant
   
    On Error Resume Next
   
    ' The following example waits for a selection from the user
RETRY:
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
   
    If Err0 Then
      Err.Clear
      MsgBox "Program ended.", , "GetEntity Example"
      Exit Sub
    Else
      returnObj.Update
      MsgBox "The object type is: " & returnObj.EntityName, , "GetEntity Example"
      returnObj.Update
    End If
   
    GoTo RETRY
End Sub

**** Hidden Message *****

春春 发表于 2008-4-9 18:00:25

你到底指的是什么？它确实做到了我所期望的

别样春天在线 发表于 2008-4-9 18:01:28

我想我的意思是你想避免程序结束msgbox还是你想让它说“你错过了选择什么，再试一次”还是什么？

中国灌水协会 发表于 2008-4-9 18:05:28

从更好的getentity开始http://www.theswamp.org/index.php?topic=9301.msg119833#msg119833

蛇群 发表于 2008-4-9 19:29:30

今天午餐时间，它无法正常工作，我有大约4或5个不同的版本
这个确实有效，但
感谢另一个线程看起来也很有用。

诛仙图片 发表于 2008-4-10 11:36:19

在VBA IDE的“工具”->“选项”框中，我选中了显示“在所有错误时中断”的框，而它应该被设置为在未处理的错误时中断。谢谢

查看完整版本: 正确退出？