Question

VB 如何清除多个text的内容？

当一个VB程序中出现多个textbox，如何清除填写在里面的内容？
有人说 建控件数组text1(index)
Private Sub Command1_Click()
For i = 0 To n 'n是你文本框的个数
Text1(i).Text = ""
Next
End Sub
可以 我想问下 这个可以吗？可以的话如何建控件数组text1(index)？？
菜鸟 大家多多包涵~~~

Answer 1

可以。
但上面的说明可以改一下：
For i = 0 To n 'n是你文本框的个数 （文本框的个数不是N，而是N + 1个）。

创建text1数组控件可以这样：
先创建一个text1控件，然后复制text1,粘贴...直到够您所要的数目即可.

记住,第一个text1的index为0,而不是1

Answer 2

这个是可以的。建控件数组的方法有二：一是选取你的Text1，Ctrl+C，CTRL+V，出来一个对话框问你，你就确定，就生成了控件数组。二是在右边的属性中，把Index设置为0，然后在代码中调用。方法是Load Text1(Index)其中Index是序列号。
你那个程序可以这样写。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
For i = text1(lbound(text1)) To text1(ubound(text1))
Text1(i).Text = ""
Next
End Sub

Answer 3

首先创建一个command按钮command1
然后选择command1,再在操作界面右边的属性栏找到Index项,把这一项改成0.
之后你再创建的command按钮就会以command1(index)的形式出现。
如command1（0）、command1（1）……
剩下的就可以用你的代码完成啦

Answer 4

建控件数组text1(index)
Private Sub Command1_Click()
For i = 0 To n 'n是你文本框的个数
Text1(i).Text = ""
Next
End Sub

Answer 5

'添加窗体Form1,按钮Command1,再随便加几个文本框，然后添加如下代码:
Private Sub Command1_Click()
    On Error Resume Next
    Dim txttemp As Control
    For Each txttemp In Me
        txttemp.Text = ""
    Next
End Sub