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

m00ners 2007-10-08 07:04:09
定义了一个自定义控件,里面有很多子控件。如何给子控件的各个属性赋值?子控件的事件如何调用?

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

比较紧急,忘各位指教。
...全文
459 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
za099z 2011-05-17
  • 打赏
  • 举报
回复
这问题不错
tianhuo_soft 2007-10-09
  • 打赏
  • 举报
回复
添加到模块里面
  • 打赏
  • 举报
回复
写一个PUBLIC的函数就可以了。
大体思路如此(现想的,不会太完善,你自己试验吧):
Public Sub SetText(ControlName as String,Val as String)
For each 对象变量 in Controls对象集合
找到指定NAME的控件,配合type属性,可以快速排除非TEXT的控件
对象变量.text=Val
next
end Sub
yachong 2007-10-08
  • 打赏
  • 举报
回复
用向导不算麻烦啊,封装哪个就选中哪个
m00ners 2007-10-08
  • 打赏
  • 举报
回复
解决了。明天给分
bluefox1979 2007-10-08
  • 打赏
  • 举报
回复
好象没其它的方法了吧!??
chenhui530 2007-10-08
  • 打赏
  • 举报
回复
暂时我也没有其他方法不知道其他高手有没有其他方法
m00ners 2007-10-08
  • 打赏
  • 举报
回复
是不是需要对每个子控件用到的属性都做一次Let和Get?
因为子控件很多,这样做很麻烦。

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

由于子控件很多,封装每个子控件的每个属性会很麻烦,最好能声明这些子控件为Public,然后在外面直接调用。
例如(UserControl1.Textbox1.Text="123")这种形式,不知这种方法能不能实现。
chenhui530 2007-10-08
  • 打赏
  • 举报
回复
Public Property Let Text1(ByVal vData As String)
text1.text=vData
End Property

Public Property Get Text1() As String
Text1 = text1.text
End Property
chenhui530 2007-10-08
  • 打赏
  • 举报
回复
Public Property Let Text1(ByVal vData As String)
text1.text=mstrTmp
End Property

Public Property Get Text1() As String
Text1 = text1.text
End Property
m00ners 2007-10-08
  • 打赏
  • 举报
回复
这么快就有人帮忙,谢谢了。
麻烦能说详细一些么?
m00ners 2007-10-08
  • 打赏
  • 举报
回复
定义了一个自定义控件,里面有很多子控件。如何给子控件的各个属性赋值?子控件的事件如何调用?

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

比较紧急,忘各位指教。
chenhui530 2007-10-08
  • 打赏
  • 举报
回复
你自己定义属性即可
在代码里指定控件的相应属性即可

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧