急问,分多~~~

Question

想把一些textbox combox之类的放到一起,作成一个ActiveX 控件
现在的问题是我动态添加了这个控件以后
怎么访问这个控件里边那些控件
比如代码如下:
'动态添加一个叫做My的控件.里边包括一个lable和一个textbox
'textbox的名称叫做txtProperty
Private Sub Form_Load()
    Form1.Controls.Add "工程1.usercontrol1", "My"
    With Form1!my
        .Visible = True
    End With
End Sub现在想得到txtProperty的值
Private Sub Command1_Click()
    MsgBox Form1!my.txtproperty.txt
End Sub这样会报错
怎么解决???
谢谢!!!

Answer 1

要在ocx中暴露这些接口才行
工程1.usercontrol1中加入'取
Public Property Get PropertyText() AS String
   PropertyText = TextProperty.Text
End Property‘设
Public Property Let PropertyText( strNewVal as String) 
   TextProperty.Text = strNewVal
End Property然后才能引用
MsgBox Form1!my.textproperty