Question

关于控件数组的问题，请高人指点下

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
请解释该程序，还有如何修改错误之处及原因？谢谢

Answer 1

正确代码 

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 = "" 

效果如下：

Answer 2

Label.Caption = ""
这句你楼了控件数组或者标签号码？

Answer 3

Private Sub Command1_Click()
Dim ctr As Control '定义ctr为控件型变量
For Each ctr In Controls '遍历所有控件
If TypeOf ctr Is Label Then '如果有个标签控件
Label.Caption = "" '那么把名叫Label的标签标题设为空
End If
Next ctr
end Sub
因此要确保你的控件中有个控件名叫Label。