如何循环锁定窗体控件

4848

我是这样写的:
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next
但不行,原因是ctl.中没有Locked的属性.

老鬼

不是每个控件都有LOCKED属性的，比如“按钮”控件就没有。

4848

加多个类型判断后就可以了(在本论坛主页的一篇<查询2>中学到的)
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox '是文本框
If ctl.Locked = False Then ctl.Locked = True
Case acComboBox '是组合框
If ctl.Locked = False Then ctl.Locked = True
Case acCheckBox '是复合框
If ctl.Locked = False Then ctl.Locked = True
'其它类型的控件不锁定
End Select
Next