Question

VB 怎么用循环引用多个文本框的属性？

要把内容写到几个文本框中，文本框名字是text1,text2......,怎么用循环来做呢，可不可以直接用text(N)引用呢？本人水平不行，困了好久了。

Answer 1

如果是这样,你最好用控件数组来做
先放一个文本框,再复制这个文本框,再粘贴,第一次粘贴时,在出现的对话框中,选择"是",这样就创建文本框控件数组了,需要几个,再粘贴几个

这样就可以循环了,方法如下:
For i=0 To 9 '假设有10个文本框
Text1(i).Text=i
Next

如果实在不想用控件数组,也行
Private Sub Command1_Click()
For Each Item In Form1
If UCase(Left(Item.Name, 4)) = "TEXT" Then
Item.Text = Rnd
End If
Next
End Sub
不过,这种方法,很难掌握具体是哪个文本框得到什么值

Answer 2

能用text(N),前提是文本框名字类似 TEXT1(0),TEXT1(1),TEXT1(2)...TEXT1(n)
其实就是用控件数组,当你将文本框复制 粘贴时VB会询问你是否使用控件数组.
for i=0 to 5
TEXT1(i)=i
next

Answer 3

把文本框弄成控件数组，再用循环语句，应用啊！
如：
for i=1 to 10
a(i)=text1(i).text
next

这样就把text赋值给数组了

Answer 4

如果不用控件数组，那么你这么引用是不行的，你可以这样用：
Dim i As Integer
For i = 1 To 6
Controls("text" + Trim(Str(i))).Text = i
Next i
这个循环可以同时把text1到text6的text属性赋值。

Answer 5

如图所示，选中文本框后，右侧的就是属性窗口，根据相应的属性进行修改就可以了
例如几个常用的属性：
“name”后面就是该文本框的名称，修改成自己想要的
“font”后面就是文本框文字的格式设置，如，大小，字体，等等
“text”后面跟的是文本框的内容