VB6自定义控件如何调用子控件

[m00ners]

定义了一个自定义控件，里面有很多子控件。如何给子控件的各个属性赋值？子控件的事件如何调用？

由于子控件很多，封装每个控件属性会很麻烦，最好能声明这些子控件为Public，然后在外面直接调用。
例如(UserControl1.Textbox1.Text="123")这种形式，不知这种方法能不能实现。

比较紧急，忘各位指教。

[chenhui530]

你自己定义属性即可
在代码里指定控件的相应属性即可

[m00ners]

定义了一个自定义控件，里面有很多子控件。如何给子控件的各个属性赋值？子控件的事件如何调用？

由于子控件很多，封装每个子控件的每个属性会很麻烦，最好能声明这些子控件为Public，然后在外面直接调用。
例如(UserControl1.Textbox1.Text="123")这种形式，不知这种方法能不能实现。

比较紧急，忘各位指教。

[m00ners]

这么快就有人帮忙，谢谢了。
麻烦能说详细一些么？

[chenhui530]

Public Property Let Text1(ByVal vData As String)
text1.text=mstrTmp
End Property

Public Property Get Text1() As String
Text1 = text1.text
End Property

[chenhui530]

Public Property Let Text1(ByVal vData As String)
text1.text=vData
End Property

Public Property Get Text1() As String
Text1 = text1.text
End Property

[m00ners]

是不是需要对每个子控件用到的属性都做一次Let和Get？
因为子控件很多，这样做很麻烦。

有没有更简单的途经呢？
下面方法能实现么？

由于子控件很多，封装每个子控件的每个属性会很麻烦，最好能声明这些子控件为Public，然后在外面直接调用。
例如(UserControl1.Textbox1.Text="123")这种形式，不知这种方法能不能实现。

[chenhui530]

暂时我也没有其他方法不知道其他高手有没有其他方法

[bluefox1979]

好象没其它的方法了吧!??

[m00ners]

解决了。明天给分

[yachong]

用向导不算麻烦啊,封装哪个就选中哪个

[碧海情天-赵亮]

写一个ＰＵＢＬＩＣ的函数就可以了。
大体思路如此（现想的，不会太完善，你自己试验吧）：
Public Sub SetText(ControlName as String,Val as String)
For each 对象变量 in Controls对象集合
找到指定ＮＡＭＥ的控件，配合type属性，可以快速排除非ＴＥＸＴ的控件
对象变量.text=Val
next
end Sub

[tianhuo_soft]

添加到模块里面

[za099z]

这问题不错