帮助文件

关于NavBar

属性: 

Dim Bar As WinForm.NavBar
Dim Page1 As WinForm.NavPage
Dim Page2 As WinForm.NavPage
Bar = Forms("窗口1").Controls("NavBar1")
Page1 = Bar.NavPages("Task")
Page2 = Bar.NavPages(0)

如果在窗口中添加一个导航栏NavBar1,就有现成的三个页面:任务,联系人,日历.

Dim Bar As WinForm.NavBar
Dim Page1 As WinForm.NavPage
Dim Page2 As WinForm.NavPage
Bar = Forms("导航").Controls("NavBar1")
Page1 = Bar.NavPages("Task")
Page2 = Bar.NavPages(0)
Bar.NavPages(2).Visible = False

以上代码可以隐藏页面"任务"

如果想增加页面"计划管理",怎么做?我在上面的代码增加

Add(计划管理, 计划管理, ButtonImageFile)

不行呢!

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

点击浏览该文件:权限管理 (1).table

哦,那么插入应该是:

Bar.NavPages.Insert("计划管理", "计划管理", "",1)

隐藏页面还是会有空页面,占位置,最好能动态插入或删除页面.

----------------------------

看错了,隐藏不会出现空页面.

模仿别人的权限管理,这里控制的是NavPages和TopicPage,

For Each t As Table In Tables

    t.Visible = False

    For Each c As Col In t.Cols

        c.Visible = False

           Next

Next

Dim roles() As String = _userGroup.Split(",")

For Each role As String In roles

    Dim drs As List(Of DataRow) = DataTables("权限2").Select("可见 = \'" & role & "\' or 可见 like \'" & role & ",*\' or 可见 like \'*," & role & ",*\' Or 可见 like \'*," & role & "\'")

    For Each dr As DataRow In drs

        If dr.Isnull("NavPages") AndAlso dr.Isnull("TopicPage") Then

            For Each t As Table In Tables

                t.Visible = True

            Next

        Else If dr.isnull("TopicPage") Then

            Tables(dr("NavPages")).Visible = True

            For Each c As col In Tables(dr("NavPages")).Cols

                c.Visible = True

            Next

        Else

            Tables(dr("NavPages")).Visible = True

            For Each c As col In Tables(dr("NavPages")).Cols

                If dr("TopicPage") = c.name OrElse dr("TopicPage") Like c.name & ",*" OrElse dr("TopicPage") Like "*," & c.name & ",*" OrElse dr("TopicPage") Like "*," & c.name Then

                    c.Visible = True

                End If

            Next

        End If

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

点击浏览该文件:权限管理_小例.table