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

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

举例 ：

Dim topic As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1") '希望默认全部是可见但不可用
If _Usergroup = "产品中心"  Then
    Dim tl1 As WinForm.TopicLink
    topic.Pages("产品中心").Visible = True '当用户组为产品中心时,这个页面及其下面的任务项，可见可用，其他的均为"可见但不可用"。

    topic.Pages("市场管理").Visible = True '
.... .....    
  Else If _Usergroup = "管理员"  Then
  所有菜单均可用

........ 

End If

也是，谢谢您，请教您；
1、那如何设置成：默认为全部不可见。因为菜单项较多，反向根据用户权限请定成可见，更容易些，

2、根据客户权限，可见的菜单及其任务项，只加载对应的表，能不能在此处实现。

谢谢您，谢谢您，权限表，我会些，

动态创建菜单，我不会。（不好意思，使用狐表已过十年，只是部门自用，这次是为全公司搞，要求把各部门所有的表项集中在一个项目里管理和查阅，头都大了）

您能不能给个案例，我学习一下

万分感谢，谢谢。

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

这第一项我做出来。谢谢。