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

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

Private Sub UserForm_Click()<BR>       Dim vntPt as Variant<BR>       vntPt = ActiveDocument.Utility.GetPoint


End Sub<BR>


运行时提示


"运行时错误'-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失败的问题