以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单click事件后，选中相应的导航栏某一栏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62622)
--  作者：nbfool
--  发布时间：2015/1/5 15:27:00
--  菜单click事件后，选中相应的导航栏某一栏
菜单click事件后，选中相应的导航栏某一栏。？



甜老师，谢谢以前的解惑！
--  作者：Bin
--  发布时间：2015/1/5 15:30:00
--  
可以设置SelectedIndex  http://www.foxtable.com/help/topics/0874.htm
--  作者：nbfool
--  发布时间：2015/1/5 15:37:00
--  
出现：编译错误："FORM"不是“RibbonButtonEventArgs"的成员。
        错误代码：Bar=e.Form.Controls("NavBar1")
--  作者：nbfool
--  发布时间：2015/1/5 15:40:00
--  
控件都放在主窗口下。
--  作者：有点甜
--  发布时间：2015/1/5 15:40:00
--  
Forms("窗口1").Controls("NavBar1")
--  作者：Bin
--  发布时间：2015/1/5 15:40:00
--  
你在菜单中调用，就要指定窗口名

用 froms("窗口1").controls   不要盲目套用.


而且要判断一下窗口是否已经打开,否则窗口未打开又会报错找不到控件

if forms("窗口1").opened then
   froms("窗口1").controls 
end if
--  作者：nbfool
--  发布时间：2015/1/5 15:42:00
--  
谢谢
--  作者：nbfool
--  发布时间：2015/1/5 16:54:00
--  
Dim Bar As WinForm.NavBar
If Forms("首页").opened Then \'================主窗口，我设计的是主窗口导航方式
    Bar=Forms("首页").Controls("NavBar1")
End If
If user.Group = "汽修管理"  Then
    RibbonTabs("我的工作台").Groups("汽修").visible = True
    RibbonTabs("我的工作台").Groups("仓库").visible = False
    RibbonTabs("我的工作台").Groups("客户").visible = False
    RibbonTabs("我的工作台").Groups("财务").visible = False
    RibbonTabs("我的工作台").Groups("初始化").visible = True
    RibbonTabs("我的工作台").Groups("用户").visible = True
    RibbonTabs("我的工作台").Groups("附件").visible = True
    \' RibbonTabs("我的工作台").Groups("开发").visible = False
    \'---导航栏权限设置
    If Forms("首页").opened Then
        Bar.NavPages(1).Visible=True  \'汽修管理
        Bar.NavPages(2).Visible=False \'仓库管理
        Bar.NavPages(3).Visible=False \'客户管理
        Bar.NavPages(4).Visible=False \'财务管理
    End If
End If
===请问，刚开始进入（用汽修管理的权限）时，主窗口还没有生成，这时，导航栏是全部显示的，只有重新进行一次权限登录后才能符合要求，怎么办？我要求，一进入系统时就能达到管理导航栏权限的要求。
--  作者：Bin
--  发布时间：2015/1/5 16:56:00
--  
你在窗口ALterLoad事件,编写代码控制一次.
--  作者：nbfool
--  发布时间：2015/1/5 17:01:00
--  
OK