请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。

共有2452人关注过本帖树形打印复制链接主题：请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106158 积分：539907 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/27 9:29:00 [显示全部帖子]

这个只能设置看见，无法设置是否可用。

或者您在点击的时候才判断是否有权限，再执行操作的代码。

个人理解，不能用的东西就没有必要给用户看到。不然用户会闹心的

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106158 积分：539907 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/27 9:53:00 [显示全部帖子]

1、可以建一个权限表，存储哪些用户可以看哪些菜单，然后查询这个用户可以使用的菜单，动态创建菜单

2、可以设置为一开始全部不加载表，在点击菜单的时候再加载表，加载后再打开窗口

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106158 积分：539907 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/27 10:29:00 [显示全部帖子]

Dim tp As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1")

For Each s As String In DataTables("权限表").GetValues("导航页","用户='" & user.Name & "'")

Dim p As WinForm.TopicPage = tp.Pages.Add(s,s)

For Each s2 As String In DataTables("权限表").GetValues("导航链接","用户='" & user.Name & "' and 导航页='" & s & "'")

p.Links.Add(s2,s2)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106158 积分：539907 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/27 16:13:00 [显示全部帖子]

或者

主题：请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。