在VBA中的Form动态加入Text

[zhaoxichao]

刚接触VBA，有一个想法不知道能不能实现
一个for循环，循环5次
每次循环new一个Text，然后加入到Form中
5个Text从上到下依次排列

Java中这些都很容易实现，不知道VBA中怎么实现

[Hassle]

控件数组MyText

load MyText(1)
load MyText(2)
...

[zqsntws]

如楼上所说，定义一个Text数组，然后添加，设置其位置的属性

[DawnPine]

和VB中一样
用控制数组

[pigsanddogs]

控件数组MyText

load MyText(1)
load MyText(2)
...

Mytext(1).left = xx
Mytext(1).top = xx
Mytext(1).visable = true

Mytext(2).left = xx
Mytext(2).top = xx
Mytext(2).visable = true

[zhang_pi]

好像不行

Public aa(5) As TextBox

Private Sub CommandButton1_Click()




Dim i, j, k As Integer
Load aa(1)
Load aa(2)
Load aa(3)
Load aa(4)
For i = 1 To 4



aa(i).Visible = True
aa(i).Height = 20
aa(i).Width = 100
aa(i).Top = 20 + i * 40
aa(i).Left = 20
aa(i).Text = "AA" & CStr(i)



'Me.Controls.Add aa(i)

Next i
End Sub

[jam021]

http://community.csdn.net/Expert/topic/5121/5121956.xml?temp=.3465082

[zzyong00]

设计时加入一textbox,并将Index设为0
Dim i, j, k As Integer
Load Text1(1)
Load Text1(2)
Load Text1(3)
Load Text1(4)
For i = 0 To 4
Text1(i).Height = 1200
Text1(i).Width = 1000
Text1(i).Top = 200 + i * 1000
Text1(i).Left = 200
Text1(i).Text = "text1" & CStr(i)
Text1(i).Visible = True

Next i
Me.Refresh