由于VB6以后的版本在遍历Form上的控件时不会处理容器里的控件(也就是说如果Form上有一个GroupBox控件且里面有TextBox控件一个,那么在Me.Controls里面就找不到GroupBox里的TextBox),所以单独写这么一篇文章。
'Form上所有的TextBox清空
Private Sub ClearTextBox(cc As Control.ControlCollection)
For Each ctl As Control In cc
If TypeOf ctl Is TextBox Then
CType(ctl, TextBox).Text = String.Empty
Else If ctl.Controls.Count > 0 Then
ClearTextBox(ctl.Controls) '递归调用
End If
Next
End Sub
'调用
ClearTextBox(Me.Controls)