Question

在VB中如何用循环语句给多个连续文本框赋值

Answer 1

Dim obj As Object, objName As String, i As Integer
i = 0
For Each obj In Me.Controls '枚举窗体所有控件
Debug.Print TypeName(obj)
If TypeName(obj) = "TextBox" Then '判读是否为文本框
i = i + 1
objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制
obj.Text = "文本" & i '文本框赋值
End If
Next

Answer 2

要定义为数组为全局变量，或者定义为_root.a[];
还在注意赋值后要刷新一次才会有显示，可以在场景运动一帧，或者用
onEnterFrame这个函数，还不知道你要做成怎样，可以的话留下联系方法............

Answer 3

For Each fo In Me.Controls
if TypeName(fo)="TextBox" then
fo.text=rnd ''''赋值

end if
Next

这样？

Answer 4

使用文本框控件数组试试

Answer 5

使用文本框数组：

for i=0 to text1.UBound
text1(i).text="123"
next