控件名称的获取及判断

[haoxian10]

个人编写的一个程序文件，欲对一个groupbox 中的textbox进行清空处理，我采用Name 调用控件名称并判段，但结果不能实现功能，程序如下：


Dim ba As Control : Dim bb As Control
For Each ba In Me.Controls
If TypeOf ba Is GroupBox And Name Is gb4 Then '是否为容器groupBox    ，定义名称为gb4
For Each bb In ba.Controls
If TypeOf bb Is TextBox Then
bb.Text = "" '是否为文本框textBox  
Else
End If
Next
End If
Next

请帮忙看看有什么问题，谢谢……

[qbilbo]

If TypeOf ba Is GroupBox And ba.Name = "gb4" Then
....

或 直接写：

For Each bb In gb4.Controls
     If TypeOf bb Is TextBox Then
        bb.Text = ""  '是否为文本框textBox   
    End If
Next

[haoxian10]

谢谢，第一个方法适用性好一些……