怎样把控件数组动态的放入picturebox或者frame

Question

比方说有个TextBox的数组，然后想通过代码把他们放到一个PictureBox里面似乎有一个Controls.Add方法，包含3个参数，第一个是类型吧，第二个是控件的名字，第三个是容器，特别是中间那个关于控件名字的参数不知道怎么写Text1(0),Text1(1),Text1(2),PictureBox1
Controls.Add "VB.TextBox","???",PictureBox1中间那个怎么写，我用了"Text1"或者"Text1(0)"都不行。高手们帮帮忙吧

Answer 1

text1(0)放在picture1里
然后
Private Sub Command3_Click()
Load Text1(1)
Text1(1).Visible = True
Text1(1).Left = Text1(0).Left
Text1(1).Top = Text1(0).Top + Text1(0).Height
End Sub

Answer 2

Option Explicit
Dim txt(2) As TextBox
Private Sub Form_Load()
     Set txt(1) = Me.Controls.Add("VB.TextBox", "txtInput", Picture1)
    txt(1).Visible = True
End Sub
--------------
www.vicmiao.com
努力就有美好时光！

Answer 3

如果PictureBox也是一个数组，Text1(0)放到Picture1(0)，Text1(1)放到Picture1(1)，Text1(2)放到Picture1(2)，这样应该怎么写呢？

Answer 4

另外顺带问一下，Webbrowser控件的ProgID是什么啊，用Controls.add方法的第一个参数就是ProgID，不知道写什么。

Answer 5

Private Sub Command3_Click()
Load Picture1(1)
Picture1(1).Visible = True
Picture1(1).Left = Picture1(0).Left
Picture1(1).Top = Picture1(0).Top + Picture1(0).Height
Load Text1(1)
Set Text1(1).Container = Picture1(1)
Text1(1).Visible = True
end sub
其他的自己类推

Answer 6

楼上 
-----------------
zq972(旅游归来，好累……) ( ) 信誉：100  
Private Sub Command3_Click()
Load Picture1(1)
Picture1(1).Visible = True
Picture1(1).Left = Picture1(0).Left
Picture1(1).Top = Picture1(0).Top + Picture1(0).Height
Load Text1(1)
Set Text1(1).Container = Picture1(1)
Text1(1).Visible = True
end sub
其他的自己类推
----------
是正解，搂主结帖吧。