求教一个问题

icake 2006-04-04 04:22:22
我弄了个控件,然后创建了这个控件的组,现在想在这个控件里再加控件组,请问用LOAD创建控件如何指定它的容器,
我弄的控件,差不多就是个PICTURE 是可以作容器用的, 我现在要往里边加一些图片和按钮,当然还要写成组,用CONTROLS.ADD 是可以,不过不能成组,我想问如果用LOAD能不能把它们设计到容器里.
一百分
...全文
169 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
icake 2006-04-04
  • 打赏
  • 举报
回复
好,谢谢2位
迈克揉索芙特 2006-04-04
  • 打赏
  • 举报
回复
老大,别跟我抢分了。呵呵
rainstormmaster 2006-04-04
  • 打赏
  • 举报
回复
可以:
set 控件名(索引).Container=容器控件的名称
控件名(索引).Visible = True
控件名(索引).Move 100, 100

类似这样即可
迈克揉索芙特 2006-04-04
  • 打赏
  • 举报
回复
Load btninfos(btninfos.Count)
With btninfos(btninfos.Count - 1)
.Visible = True
.Top = 50
.Left = 50
.Height = 100
.Width = 200
.Caption = "详细信息"
Set .Container = xpsoul01(xpsoul01.Count - 1)
End With
icake 2006-04-04
  • 打赏
  • 举报
回复
Load xpsoul01(xpsoul01.Count)
With xpsoul01(xpsoul01.Count - 1)
.Height = 735
.Left = 100 * (xpsoul01.Count - 1 + 1)
.Top = 300 * (xpsoul01.Count - 1 + 1)
.Width = 2895
.Visible = True
.Caption = "窗口:" & (xpsoul01.Count - 1) & "号"
End With

Load btninfos(btninfos.Count)
With btninfos(btninfos.Count - 1)
.Visible = True
.Top = 50
.Left = 50
.Height = 100
.Width = 200
.Caption = "详细信息"
End With
就象这样,按钮如何填到上面的容器里

1,451

社区成员

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

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