[求助]如何锁定所有文本框？

狼书生

窗体上有很多文本框控件，我想通过判断控件的类型是否为文本框，如是就锁定文本框

能通过下面这种类似的方法实现吗？

dim ctrl as contrl

for each ctrl in me.contrls

if  typeof the ctrl is textbox then

………………

end if

next

具体代码该怎么写？或者其他方法？请指教下。谢谢！[em06]

[此贴子已经被作者于2006-11-14 11:13:36编辑过]

LucasLynn

以下是引用狼书生在2006-11-14 11:13:00的发言：


窗体上有很多文本框控件，我想通过判断控件的类型是否为文本框，如是就锁定文本框

能通过下面这种类似的方法实现吗？

dim ctrl as contrl

for each ctrl in me.contrls

if  typeof the ctrl is textbox then

………………

end if

next

具体代码该怎么写？或者其他方法？请指教下。谢谢！[em06]

可以的。



For Each objCtl In Me.Controls
    If objCtl.ControlType=acText Then
        ....
    End If
Next objCtl

[此贴子已经被作者于2006-11-14 12:23:57编辑过]

狼书生

以下是引用LucasLynn在2006-11-14 12:20:00的发言：






可以的。



For Each objCtl In Me.Controls
    If objCtl.ControlType=acText Then
        ....
    End If
Next objCtl

     那用什么锁定文本框？

Control 有locked属性？[em04]

LucasLynn

以下是引用狼书生在2006-11-14 13:08:00的发言：



     那用什么锁定文本框？


Control 有locked属性？[em04]

Enable