VB2005编程中，有11个TextBox控件，TextBox1=2004,点按钮以后剩下的TextBox依次加1，直到2014。

Question

在VB6.0中，写为Private Sub Command3_Click() For i = 1 To 11 TxtYear(i).Text = TxtYear(1).Text + i - 1 Next iEnd Sub可以实现，但是在VS2005里面这样写会出错，为什么呢？应该怎么写？还有，最重要的是，怎么弄TextBox控件组，用TextBox(i)来循环赋值啊？？？

Answer 1

一种规范的方法，就是创建ArrayList类的对象，从而实现控件数组：
代码如下：

Public Class Form1
Private TextBoxArray As New ArrayList

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBoxArray(0).text = "文本框控件数组1"
TextBoxArray(1).text = "文本框控件数组2"
TextBoxArray(2).text = "文本框控件数组3"
End Sub

'自定义过程
Private Sub BiuldTextBoxArray()
TextBoxArray.Add(TextBox1)
TextBoxArray.Add(TextBox2)
TextBoxArray.Add(TextBox3)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BiuldTextBoxArray()
End Sub
End Class

方法二，我自己想了个容易理解和记忆的方法，估计内存开销稍微大一些：
Public Class Form1
Private MyText1(3) As TextBox '声明对象变量

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'这样就可以使用数组形式的控件对象了
Dim i As Integer
For i = 1 To 3
MyText1(i).Text = i
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BiuldControls() '调用自定义过程
End Sub

'自定义过程--将声明的对象与控件建立联系
Private Sub BiuldControls()
MyText1(1) = TextBox1
MyText1(2) = TextBox2
MyText1(3) = TextBox3
End Sub

End Class

Answer 2

用Controls集合
比如 For i = 1 To 3
Me.Controls("TextBox" & i).Text = i.ToString
Next