Question

vba中如何用窗体给变量赋值

窗体中的函数为：
Public Sub cmdPickPoint_Click()
Public point As Variant
point = ThisDrawing.Utility.GetPoint(, "拾取点:")
txtPointX.text = CStr(point(0))
txtPointY.text = CStr(point(1))
txtPointZ.text = CStr(point(2))
End Sub
在模块或者thisdrawing中定义了一个变量，如何将窗体中的point数组给这个变量赋值？？

Answer 1

用static声明静态变量，在整个代码运行期间都能保留使用 Static 语句声明的变量的值。

Answer 2

thisdrawing.变量＝point(n)
模块中的话，直接赋值就可以了。

追问

谢谢回答，编译的时候point报错说子过程或函数未定义又是怎么回事啊？？

追答

Public point As Variant
这句是有问题的，因为你定义的时候是在
Public Sub cmdPickPoint_Click()

里，要定义public全局变量，要把定义语句放在模块里或代码的最顶上。