Question

Vs 2012（Basic)中，如何创建 控件数组。（TextBox数组）

假设，一个数组20个元素，我要将每个元素写入一个TextBox。如何创建这样的TextBox数组，并且在界面设计上实现。请高手帮忙，PS，我用的是VS2012（Basic），VB6.0的我会用。

如果你说使用
Dim Text1（20） As TextBox
那么请告诉我，这样定义的的TextBox数组如何加载到窗口界面上。

PPS，我在TextBox属性卡中没有看到Index属性，只找到了TagIndex。如果需要使用到Index属性，请告诉我怎么查找该属性。

Answer 1

　　没有index属性了，VB.net的改变很大，1楼的答案就是最接近楼主的要求，我再补充一下完整的用法，比如每个textbox如何返回事件，这段代码直接复制到窗体代码中，可以调试运行。注意代码实际创建了21个文本框，VB.net现在也不支持数组下标自己定义起始值，如果只要20个，可以放弃第一个，保持1到20的下标，或者定义txt（19）

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim txt(20) As TextBox
    For i = 0 To 20
    
        txt(i) = New TextBox
        Me.Controls.Add(txt(i))   '把文本框添加到窗口上

        '设置文本框位置和可见性
        txt(i).Top = i * txt(0).Height
        txt(i).Left = 0
        txt(i).Visible = True

        txt(i).Name = i   '用name属性来标记每个对象
        AddHandler txt(i).TextChanged, AddressOf subName '绑定事件到特定过程

    Next

End Sub

Private Sub subName(sender As Object, e As EventArgs)
    If sender.name = "1" Then  '这里的sender就是发生事件的文本框，上面用name做标记，所以这里可以靠name来判断是哪个文本框发生事件，在第二个文本框输入就会引发
        MsgBox("事件发生了")
    End If
End Sub

　　

Answer 2

Dim Str(20) As String '20个数据元素。
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加到窗体
Dim Index As Integer = i.TabIndex '没有index属性。
Str(n) = Index
i.Text = Str(n) '将str数组的值赋值给文本框
n += 1
Next