UC知道关于控件数组的问题，请高人指点下
来源：百度知道 编辑：UC知道 时间：2024/06/21 14:17:35
Private Sub Command1_Click()
Dim ctr As Control
For Each ctr In Controls
If TypeOf ctr Is Label Then
Label.Caption = ""
End If
Next ctr
end Sub
请解释该程序，还有如何修改错误之处及原因？谢谢
Dim ctr As Control
For Each ctr In Controls
If TypeOf ctr Is Label Then
Label.Caption = ""
End If
Next ctr
end Sub
请解释该程序，还有如何修改错误之处及原因？谢谢
正确代码
Private Sub Command1_Click()
Dim ctr As Control
For Each ctr In Controls
If TypeOf ctr Is Label Then
ctr.Caption = ""
End If
Next ctr
End Sub
说明：
1、该程序作用是将当前窗体上所有标签的Caption清空
2、For Each ...循环次数取决于窗体上的控件数量
3、每次循环，ctr都代表一个具体的控件名称
4、if ..语句作用是当ctr正好是标签时，就执行分支语句
5、Label.Caption = "" 是错的，应为ctr.Caption = ""
效果如下：
