clement 发表于 2004-6-3 16:48:00

[求助]在窗体事件中调用GetPoint失败的问题

Private Sub UserForm_Click()
       Dim vntPt as Variant
       vntPt = ActiveDocument.Utility.GetPoint
End Sub
运行时提示
"运行时错误'-2147467259(80004005)
方法'GetPoint'作用于对象'IAcadUtility'时失败.
但是选择"调试",再按F5运行时正常.
请问在窗体事件中应该如何调用GetPoint.

efan2000 发表于 2004-6-3 17:20:00

先隐藏窗体，再调用与用户交互的函数，最后显示窗体。
Private Sub UserForm_Click()
         Me.Hide
       Dim vntPt as Variant
       vntPt = ActiveDocument.Utility.GetPoint
       Me.Show
End Sub

clement 发表于 2004-6-3 17:57:00

多谢超版赐复.
页: [1]
查看完整版本: [求助]在窗体事件中调用GetPoint失败的问题