vb各控件的功能 VB2003-2008 遍历控件的方法

VB2003-2008 遍历控件的方法  

　　由于VB 以后的版本在遍历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 > Then

　　ClearTextBox(ctl Controls) 递归调用

　　End If

　　Next

　　End Sub

　　调用