做展板好的网站/2024年新冠疫情最新消息今天

由于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)