getpoint方法怎么使用？

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

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

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

RetVal = GetPoint([Point][, Prompt])
retval定义为Variant,Point为可选,Prompt为提示内容.
多看帮助和对象模型.

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

老兄，不行阿，看看我的程序错在哪里
Private Sub CommandButton1_Click()
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint("选择点")
End Sub
提示为：
实时错误 ‘2147467259 (80004005)':
方法‘Getpoint’作用于对象‘IAcadUtility’时失败

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

copy


Private Sub CommandButton1_Click()
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint([b],[/b]"选择点")
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方法前必须隐藏窗体：复制代码

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

OK啦，谢谢大哥

getpoint方法怎么使用？

发表回复

精选推荐