关于 Text(i) = Controls.Add("VB.TextBox", "text" & (i), Form3)

Question

For i = 1 To k
Set Text(i) = Controls.Add("VB.TextBox", "text" & (i), Form3)

Text(i).Visible = True
Text(i).Enabled = True

Text(i).Width = 1000
Text(i).Text = ""
Text(i).Height = 400
Text(i).FontSize = 10
Next i

批量添加控件以后如何在form3中 调用和修改 Text(i).text

Answer 1

直接调用 Form3.Text1.Text 和 Form3.Text2.Text 等等即可。
3L 所说的是动态控件数组，lz的代码并不是这样。

Answer 2

Option Explicit

Dim Text() As Object

Private Sub Form_Load()
Dim i As Integer
Dim nTop As Long

ReDim Text(1 To 10)
For i = 1 To 10
Set Text(i) = Controls.Add("VB.TextBox", "Text1" & CStr(i))
Text(i).Height = 300
Text(i).Top = nTop
Text(i).Visible = True
nTop = nTop + 30 * 15
Next i

End Sub

Private Sub Command1_Click()
Text(1).Text = "你好吧"

End Sub

'直接调用就可以了

Answer 3

动态添加控件我认为有三要素：
1、母体控件必须存在Text(0)，并且在创建是需要使用Load语句创建；
2、创建控件必须得可见，需要使用Visible属性；
3、创建的控件必须确定位置，新控件必须和其他控件的位置分离；
例如你的这段程序，需要在窗体3创建动态控件，那么代码也应该在窗体3，不知道你的变量k是不是在窗体3，如果不是，可以设置为全局变量，在窗体3调用即可：
For i = 1 To k
Load Text(i)
Text(i).Visible = True
Text(i).Enabled = True
Text(i).Top = Text(0).Top + i * (Text(0).Height + 240)
Next i
上面没有对创建的控件的X方向的位置进行修正，如果需要修正：
Text(i).Left = Text(0).Left + i * (Text(0).Width + 240)

Answer 4

不懂VB 是C#就好了