如何把控件动态加载到一个容器控件中?

Question

比如说有一个PictureBox控件Picture1(0)
然后在这个容器控件中包含了Command1，TextBox1
这些是在设计Form的时候建立的然后我想在程序中动态加载多个PictureBox他们里面同样包含Command1，TextBox1控件或其他控件
并且可以相应具体事件，该如何做？如我这样做Load Picture1(1)
Picture1(1).Visible=true这样的话只能load出来一个容器，里面的子控件就出不来了，各位高手怎么做才可以动态加载出里面的子控件？

Answer 1

在VB中动态添加可响应消息的控件
http://www.applevb.com/art/dyn_control.txt

Answer 2

比如说你用Controls.Add("VB.PictureBox","pic")这样就动态加载了一个容器控件，那如何再往这个PictureBox容器控件中加入其他的控件，这个是我想要的。

Answer 3

应该只能这样加载吧。。我以前做的就是这种，，
    Index = Picture1.Count
    Load Command1(Index)
    Load TextBox1(Index)  ‘设位置
   Command1(Index).Visible=true
   TextBox1(Index).Visible=true

Answer 4

里面的子控件也做成数组吧
然后（借用楼上代码一用）
Index = Picture1.Count
    Load Command1(Index)
    Load TextBox1(Index)
    .......
  ‘设位置   set command1(index).parent=Picture1(index)
   set textbox1(index).parent=picture1(index)
    ..........
   Command1(Index).Visible=true
   TextBox1(Index).Visible=true
    ..........

Answer 5

楼上两位老大，parent这个属性在vb6.0
里面是readonly的

Answer 6

使用setparent这个API看行不？我没测试过

Answer 7

用 Container 来这只容器
Load Command1(1)
Set Command1(1).Container = Picture1
Command1(1).Visible = True
Command1(1).Top = 0
Command1(1).Left = 0