主题：[求助]不同的用户登录系统，显示不同的菜单

菜单"页面1"下有“任务11”、“任务12”、“任务13”、“任务14”四个菜单，请问如何做出这样的效果：

用户1登录系统，显示“任务11”、“任务12”两个菜单，“任务13”、“任务14”两个菜单隐藏(不显示)；用户2登录系统，显示“任务13”、“任务14”两个菜单，“任务11”、“任务12”两个菜单隐藏(不显示)。这个效果如何实现，请狐爸爸及各位朋友指点一下，谢谢！

此主题相关图片如下：未命名.jpg

很简单，不同的人进去，隐藏或显示不同的命令，例如在窗口的AfterLoad设置代码：

 

Dim bar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Select Case User.name
    Case "张三"
        bar.Pages("页面1").Links("任务2").Visible = False
        bar.Pages("页面1").Links("任务3").Visible = False
    Case "李四"
        bar.Pages("页面2").Links("任务4").Visible = False
        bar.Pages("页面1").Links("任务1").Visible = False
End Select

 

这样张三看不到页面1的任务2和任务3，李四看不到页面1的任务1和页面2的任务4

 

 

狐狸爸爸 谢谢 ！ 你真好！

狐狸爸爸 使用上面的代码，会出现这样的一个错误！如上面的图片所示！
此主题相关图片如下：未命名1.jpg

狐狸爸爸 帮我看一下、怎么出现上面那样的错误！

看看代码中的页面1、任务1这样的名称，和你实际的名称是否一致

是一致的，我用账号测试，点击菜单，就会出现上面的错误提示

我试了好多次，都次出现这样的错误，狐狸爸爸，帮我解决一下啊。

第一次打开文件用张三登陆，第二次打开文件用李四登陆：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目139.table

奇怪，狐狸爸爸 你做的 刚才 我测试了一下 确实是对的