急！在页面如何设置ActiveX控件中的属性值？100分。

Question

如果该属性为对象，不如字体：
  set yourocx.font=new stdfont
如果属性非对象，比如被景色：
  yourocx.forecolor=vbwhite

Answer 1

要传入的是一字符串，传给一个变量就可。听说在控件内要做一个属性过程，而在页面是要用javascript来实现，不知是不是这样？
我刚学VB不久，所以请大侠们在回答时请得详细一些，最好带上例子，OK?

Answer 2

在控件中做个属性，或做个public变量。
在页面里给这个变量的value赋值即可

Answer 3

这样就添加了一个属性，名称为aaa.
Private taaa As StringPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
taaa = PropBag.ReadProperty("aaa")
End SubPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "aaa", taaa
End SubPublic Property Get aaa() As Variant
aaa = taaa
End PropertyPublic Property Let aaa(ByVal vNewValue As Variant)
taaa = vNewValue
End Property

Answer 4

也可以使用PUBLIC来定义一个属性，但不如使用私有变量安全，你还可以限制属性的有效范围。具体使用哪种方法，则要看具体的用途而定。
如果属性是对象，则需要用SET语句赋值。

Answer 5

终于解决了，发现是因为我的OCX文件没有更新的原因，怪不得你们说的方法我以前也试过，却一直未解决，但还是很感谢大家，一会就给分。