批量清空文本框的问题.

Private Sub Form_Load()
    Dim xx As Variant
    For Each xx In Form1.Controls
        If TypeName(xx) = "TextBox" Then            '如果是文本框
            xx.Text = ""                            '那么清空
        End If
    Next
End Sub
这是使用类型来判断,你也可以 使用控件的名字来判断.
        If InStr(1, xx.Name, "Text") = 1 Then
使用名字来判断时,可以清空某个名字前缀的一组控件