在一个窗体上有多个文本框，当我点某个按钮时，所有文本框均清空，不知道有没有这样的一条语句？

Question

在一个窗体上有多个文本框，当我点某个按钮时，所有文本框均清空，不知道有没有这样的一条语句？

Answer 1

text1.text=""
.
.
.
.
text6.text=""
逐个清一下就行了.

Answer 2

for i=0 to 5
text(i)=""
next

Answer 3

你可以设置textbox为控件数组，然后作一个循环，把它们都清空就行了！
4个textbox控件（数组），1个command控件！
Private Sub Command1_Click()
 Dim i As Integer
 For i = 0 To 3
   Text1(i).Text = ""
 Next i
End Sub

Answer 4

'试试这个
    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If Left(Ctrl.Name, 3) = "txt" Then
            Ctrl.Text = ""
        End If
    Next

Answer 5

'Try It    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then
            Ctrl.Text = ""
        End If
    Next

Answer 6

控件数组或者for each typename(control)=文本框控件

Answer 7

用Typeof语句也可以的，推荐使用    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If Typeof Ctrl is TextBox Then
            Ctrl.Text = ""
        End If
    Next