-- 作者:狐狸爸爸
-- 发布时间:2011/8/20 21:44:00
--
在窗口的AfterLoad事件设置代码:
IF user.Goup = "XXX" Then
e.Controls("TabControl1").TabPages(1).Visible = False
End if
IF user.Goup = "XXX" Then
Forms("窗口1").Controls("TopicBar1").Pages(0).Links(0).Vsible = False
End if
命令只有Visible属性,没有Enabed属性,也就是只能设置命令是否可见,而不能设置是否可用。
但是你可以在命令的Click事件代码改为:
IF user.Goup = "XXX" Then
MessageBox.show("你无权执行")
else
\'你原来的代码
End if
|