主题：[讨论]从导航栏开始学习权限管理

帮助文件

关于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