getpoint方法怎么使用?
小弟刚刚学VBA,感觉很多函数和方法用起来很罗嗦,今天刚刚试了一个getpoint方法,用不起来,是不是要设置什么?请高手指点,给出一个完整的输入点的例子,不胜感激 RetVal = GetPoint([, Prompt])retval定义为Variant,Point为可选,Prompt为提示内容.<BR>多看帮助和对象模型. 老兄,不行阿,看看我的程序错在哪里
Private Sub CommandButton1_Click()<BR>Dim point1 As Variant<BR>point1 = ThisDrawing.Utility.GetPoint("选择点")<BR>End Sub
提示为:
实时错误 ‘2147467259 (80004005)':
方法‘Getpoint’作用于对象‘IAcadUtility’时失败 Private Sub CommandButton1_Click()
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint(,"选择点")
End Sub 加一个逗号! 是我机子问题吗?怎么改都是那个错误,不管把point1定义成局部变量还是全局变量,不管加不加逗号还是那个提示,郁闷!所有的get族方法都一样 还有一个重要的问题,就是在调用GETXXX方法前必须隐藏窗体:UserForm1.Hide OK啦,谢谢大哥
页:
[1]