狂舞九天 发表于 2004-2-13 12:31:00

getpoint方法怎么使用?

小弟刚刚学VBA,感觉很多函数和方法用起来很罗嗦,今天刚刚试了一个getpoint方法,用不起来,是不是要设置什么?请高手指点,给出一个完整的输入点的例子,不胜感激

zeng29 发表于 2004-2-13 16:08:00

RetVal = GetPoint([, Prompt])


retval定义为Variant,Point为可选,Prompt为提示内容.<BR>多看帮助和对象模型.

狂舞九天 发表于 2004-2-13 22:46:00

老兄,不行阿,看看我的程序错在哪里


Private Sub CommandButton1_Click()<BR>Dim point1 As Variant<BR>point1 = ThisDrawing.Utility.GetPoint("选择点")<BR>End Sub


提示为:


实时错误 ‘2147467259       (80004005)':


方法‘Getpoint’作用于对象‘IAcadUtility’时失败

mccad 发表于 2004-2-14 08:08:00

Private Sub CommandButton1_Click()
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint(,"选择点")
End Sub

myfreemind 发表于 2004-2-14 13:14:00

加一个逗号!

狂舞九天 发表于 2004-2-14 13:18:00

是我机子问题吗?怎么改都是那个错误,不管把point1定义成局部变量还是全局变量,不管加不加逗号还是那个提示,郁闷!所有的get族方法都一样

mccad 发表于 2004-2-14 13:22:00

还有一个重要的问题,就是在调用GETXXX方法前必须隐藏窗体:UserForm1.Hide

狂舞九天 发表于 2004-2-14 13:28:00

OK啦,谢谢大哥
页: [1]
查看完整版本: getpoint方法怎么使用?