循环取textbox的值

Question

我有20多个 textbox控件 
我想用循环的方法读取他们的值 
应该怎么写

Answer 1

控件組嘛
Text1(0) Text(1).....

Answer 2

控件数组 然后用index值就可以了

Answer 3

Dim ctl As ControlFor Each ctl In Me.Controls
  If TypeName(ctl) = "TextBox" Then
     Debug.Print ctl.Text
  End If
Next

Answer 4

将20多个Textbox的Tag属性中编号。比如0，1，2……，然后可以循环取。

Answer 5

窗体上放一个TEXT控件，选中它按“ctrl＋c”，再点窗体空白地方按“ctrl＋v”，VB会问你是否要创建控件数组，你点YES，就可以了。
此时就会多出一个同样的控件来，并且控件名称和原来的一样，只是INDEX属性不同，要几个就复制几个，然后就可以通过 TEXT1(INDEX)这样的数组形式来访问每一个TEXT了：例如：
DIM I AS LONG
FOR I=0 TO TEXT1.COUNT-1
   TEXT1(I).TEXT=I
NEXT
运行一下这段程序，会自动在每一个TEXT控件中写上一个数字，至于其他用法，楼主稍微研究一下就知道了。
对了，其他控件也可以用这个方法建立控件数组