Office中国论坛/Access中国论坛

标题: 如何循环锁定窗体控件 [打印本页]

---

作者: 4848    时间: 2009-3-27 09:21
标题: 如何循环锁定窗体控件


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

---

作者: 老鬼    时间: 2009-3-27 09:24
不是每个控件都有LOCKED属性的，比如“按钮”控件就没有。

---

作者: 4848    时间: 2009-3-27 09:31
加多个类型判断后就可以了(在本论坛主页的一篇<查询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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3