Question

vb如何用循环控制多个文本框输出内容~~~

有文本框 TextBoxa1.Text到TextBoxa100.Text,一共100个文本框,我想用循环让
TextBoxa1.Text到TextBoxa100.Text的内容都是"你好",怎么办?????
我的文本框是在word里边那所在窗体是什么呀？？

Answer 1

你好!
用控件集合的方法最为简便,代码也少!
1、新建一个窗体（表单），名称为Form1；
2、在Form1中放置100个文本框，名称分别为TextBoxa1~~TextBoxa100；（其实最好用控件数组）
3、程序如下：
Private Sub Form_Load()

Dim i As Integer

For i = 0 To Me.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = "你好"
End If
Next i

End Sub

祝你成功！

Answer 2

在 Word 里应该是 ThisDocument。
Dim i As Integer
For i = 1 To 100
Call CallByName(ThisDocument, "TextBoxa" & i, VbLet, "你好")
Next
----------------
Dim i As Integer
For i = 1 To 100
Call CallByName(Form1, "TextBoxa" & i, VbLet, "你好")'Form1换成你的TextBoxa1所在窗体名
Next

Answer 3

如果你要用100相同类型的控件，请直接用控件数组就好了。用for语句控制循环，然后直接改变index的值不就搞定了？

Answer 4

楼上的说的很对。
在VB中好像不可以像java那样用映射，所以只能一个一个写了。

Answer 5

控件数组＋for循环