主题：导航栏如何进行权限控制

 你可以在afterLoad事件，控制导航的显示或者隐藏，参考代码

Dim topic As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1")
If user.Roles = "管理员" Then
    Dim tl1 As WinForm.TopicLink
    topic.Pages("文件").Visible = False
    topic.Pages("项目").Links("打开").Visible = False
Else If user.Roles = "文员" Then
   
End If