VB窗口中如果有多个文本框，怎样用数组分别为他们赋值？

Question

如题所述

Answer 1

你这多个文本框最好弄成控件数组，并且与要赋值的数组一一对应，这样就方便得多，比如（假定文本框数组名为Text1，数组为a()）：

For i = 0 To UBound(a)
   Text1(i).Text = a(i)
Next

如果文本框不是控件数组则比较麻烦，你要一个一个进行赋值。如果文本框的名字是有规律的，比如Text1、Text2、Text3……而且数字是连续的，则可以这样（这是一种非常规的用法）：

For i = 0 To UBound(a)
   Controls("Text" & i + 1).Text = a(i)
Next

强烈建议尽量使用控件数组，不但运行速度较快，而且可以节省系统资源消耗