Foxtable(狐表)用户栏目专家坐堂 → 菜单click事件后,选中相应的导航栏某一栏


  共有3609人关注过本帖树形打印复制链接

主题:菜单click事件后,选中相应的导航栏某一栏

帅哥哟,离线,有人找我吗?
nbfool
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
菜单click事件后,选中相应的导航栏某一栏  发帖心情 Post By:2015/1/5 15:27:00 [显示全部帖子]

菜单click事件后,选中相应的导航栏某一栏。?



甜老师,谢谢以前的解惑!

 回到顶部
帅哥哟,离线,有人找我吗?
nbfool
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
  发帖心情 Post By:2015/1/5 15:37:00 [显示全部帖子]

出现:编译错误:"FORM"不是“RibbonButtonEventArgs"的成员。
        错误代码:Bar=e.Form.Controls("NavBar1")

 回到顶部
帅哥哟,离线,有人找我吗?
nbfool
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
  发帖心情 Post By:2015/1/5 15:40:00 [显示全部帖子]

控件都放在主窗口下。

 回到顶部
帅哥哟,离线,有人找我吗?
nbfool
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
  发帖心情 Post By:2015/1/5 15:42:00 [显示全部帖子]

谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
nbfool
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
  发帖心情 Post By: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
===请问,刚开始进入(用汽修管理的权限)时,主窗口还没有生成,这时,导航栏是全部显示的,只有重新进行一次权限登录后才能符合要求,怎么办?我要求,一进入系统时就能达到管理导航栏权限的要求。

 回到顶部
帅哥哟,离线,有人找我吗?
nbfool
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:885 威望:0 精华:0 注册:2014/11/9 13:19:00
  发帖心情 Post By:2015/1/5 17:01:00 [显示全部帖子]

OK

 回到顶部