Question

VB6.0 海量的TextBox如何快速赋值?

VB6.0 海量的TextBox如何快速赋值?窗体(Form1)上有一个按钮(Command1)和一万个文本框(Text1到Text10000)
按钮里边有一个有着一万个元素的变量，如何通过for循环吧这些变量一个个赋值塞入对应的Textbox

Answer 1

首先要明确一点：窗体上是不可能放一万个文本框的，这已经大大超出了上限（貌似是512个，记不太清了，但肯定远远小于10000个）；

其次，建议把文本框做成控件数组，这样就可以突破上限，因为VB是把整个控件数组当作一个控件来对待的。但能否达到一万个我没试过不知道，假定可以，则设这个文本框数组为 Text1(0)到Text1(9999)，则用下面的代码就可以一次性赋值了（假定你说的一万个元素的数组变量是a）：

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

最后补充一句，在窗体中用大量的文本框来输入或显示数据是很愚蠢的做法，应该使用表格控件才是正道。

追问

谢谢了，其实一共就9个文本框，改成数组一样麻烦，我还是一个个添吧！