ActivX Control 的问题 。。。。

Question

我新建立了一个 ActivX Control  的工程，里面有一个 UserControl1 和 一个Module1 ，UserControl1 里面有一个 TEXT控件，名称是 text1,Module1 里面有一个函数，现在我想当 Module1里面的函数运行的时候，往text1里面输出一些字符，该如何写啊？这样写提示报错:UserControl1.text1.text="a"

Answer 1

我想你这个概念上有问题。既然想给text1赋值，为何是module函数，而不是
控件的成员函数？
再说，module函数是不可能为外部程序所访问的，最后无非是你的控件通过
方法、属性引用该module函数，然后提供方法属性的接口给外面。既然这样
为什么不做一个控件的过程/属性等？
如果你非得这样做，那么建议定义一个全局变量存储text，该module函数被
控件调用后再将此变量赋值给text1.这样做有违OO的思想.

Answer 2

如果自己做的USERCONTROL应该提供相应的方法来进行操作.否则你的这个封装就没有任何意义了.

Answer 3

<form name=form1>
<OBJECT id="PwdCtl"  width="116" height="24" classid="clsid:0CA54D3F-CEAE-48AF-9A2B-31909CB9515D" VIEWASTEXT>
  </OBJECT>
</form><input onclick="alert(form1.PwdCtl.IValue)" type=button>请看上面的代码是一个控件的代码，当用form1.PwdCtl.IValue的时候可以返回一个值，是控件里返回的，请问现在我该在控件里如何写，才能实现这样的功能

Answer 4

'如果返回的是某控件的一属性,如控件中text1的text,定义如下属性与Text1的text属性关联
Public Property Get IValue() As String
    IValue = Text1.Text
End Property'如果返回的不是跟某个控件属性关联,定义一个实例变量:
dim m_IValue
Public Property Get IValue() As String
    IValue = m_IValue
End Property