Question

VB中窗体上有text1,text2,text3,.........text31,总共有31个text文本框, 一次性赋值

VB中窗体上有text1,text2,text3,.........text31,总共有31个text文本框, 在VB代码中有什么办法一次性给这31个text赋值. 比如用 数组 行不行,如果能行的话, 怎么实现. 或者还有其他更好的方法吗? 求高手解答.
比如:
dim a(1 to 31 ) as string
for i = 1 to 31
a(i)="Text" & i
a(i).text=" 123 "
next i
但是不能运行, 提示错误,郁闷中. 有没有什么方法能把a(i)中的变量置换出来用作text的前缀: 比如 a(2)= " text2 " 时, 把变量a(2)中的变量值" text2 " 置换出来使用, 就变成 text2.text= "123"

Answer 1

Dim x As Object
For Each x In Me.Controls
If Left(x.Name, 4) = "Text" Then x.Text = "123"
Next

Answer 2

尝试下这个看看，不知道可以不
for i =1 to 31
text ＆ i = i
next
只是想象的，你试试