如果只有个别的文本框需要进行权限控制,就没有必要使用全局事件,将代码直接设置在文本框的Enter事件即可。例如窗口中有一文本框,只有张三才能在其中输入数据,可将此文本框的Enter事件代码设置为:
If User.Name = "张三" Thenctl.ReadOnly = BooleanEnum.False '允许编辑Elsectl.ReadOnly = BooleanEnum.True '禁止编辑End If
这个在文本框的事件中保存时候提示错误