'**********文本框清空*********
Private Sub BoxClear()
Dim obj As Object, objName As String, i As Integer
For Each obj In Me.Controls '枚举窗体所有控件
'Debug.Print(TypeName(obj))
If TypeName(obj) = "TextBox" Then '判读是否为文本框
objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值,也可以根据其他属性复制
'Console.WriteLine("x:" & TypeName(obj))
'Console.WriteLine("x1:" & objName)
obj.Text = ""
End If
Next
End Sub
04-16
2003
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)