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

来源:百度知道 编辑:UC知道 时间:2024/05/11 21:14:54
有文本框 TextBoxa1.Text到TextBoxa100.Text,一共100个文本框,我想用循环让
TextBoxa1.Text到TextBoxa100.Text的内容都是"你好",怎么办?????
我的文本框是在word里边那所在窗体是什么呀??

你好!
用控件集合的方法最为简便,代码也少!
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

祝你成功!

在 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

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

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

控件数组+for循环