|
由于VB以后的版本在遍历Form上的控件时不会处理容器里的控件（也就是说如果Form上有一个GroupBox控件且里面有TextBox控件一个那么在MeControls里面就找不到GroupBox里的TextBox）所以单独写这么一篇文章 Form上所有的TextBox清空 Private Sub ClearTextBox(cc As ControlControlCollection) For Each ctl As Control In cc If TypeOf ctl Is TextBox Then CType(ctl TextBox)Text = StringEmpty Else If ctlControlsCount > Then ClearTextBox(ctlControls) 递归调用 End If Next End Sub 调用 ClearTextBox(MeControls) |
