[求助]连续窗体文本框控件锁定问题

todaynew

求一个通用文本框自行锁定模块
要求文本框控件更新后自行锁定不能修改
我现在用的方法是窗体跟新后事件锁 ...
xuwenning 发表于 2010-8-16 20:57

在窗体加载事件中写更新后的事件即可。

todaynew

发表于 1 小时前!!
老汉起床早啊！
xuwenning 发表于 2010-8-17 08:08

一两句说不清楚，请上传实例吧。

todaynew

Private Sub Form_Load()
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For Each ctl In ctls
    If ctl.ControlType <> acLabel Then
        ctl.OnGotFocus = "=AllOnGotFocus('" & ctl.Name & "')"
    End If
Next ctl
End Sub

Function AllOnGotFocus(ctlname As String)
Dim ctls As Controls
Set ctls = Me.Controls
If IsNull(ctls(ctlname).Value) = True Then
    ctls(ctlname).Locked = False
Else
    ctls(ctlname).Locked = True
End If
End Function