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

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

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

先隐藏窗体，再调用与用户交互的函数，最后显示窗体。

copy


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

多谢超版赐复.

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

发表回复

精选推荐