主题：[求助]菜单隐藏及是否可用

LoadUserSetting

 

'菜单权限表,下面代码，怎么修改实现对菜单及菜单按钮权限控制？求助

For Each rt As RibbonMenu.Tab In RibbonTabs
    rt.Visible = True
    rt.Enabled = True
    For Each rg As RibbonMenu.Group In rt.Groups
        rg.Visible = True
        rg.Enabled = True
        For Each itm As RibbonMenu.RibbonItem In rg.Items
            itm.Visible = True
            itm.Enabled = True
        Next
    Next
Next
For Each i As object In QAT.Items
    i.visible = True
    i.Enabled = True
Next 
For Each i As object In ConfigBar.Items
    i.visible = True
    i.Enabled = True
Next 

'For Each dr As DataRow In DataTables("菜单权限表").Select("用户分组 = '" & _UserGroup & "' and 用户名 = '" & _UserName & "'")
For Each dr As DataRow In DataTables("菜单权限表").Select("用户名 = '" & _UserName & "'")
  If dr("菜单分区")= "功能区"  Then
      If dr.IsNull("分组名")  Then
        RibbonTabs(dr("菜单名")).Visible = Not dr("菜单不可见")
        RibbonTabs(dr("菜单名")).Enabled = Not dr("菜单不可用")   
      ElseIf dr.IsNull("按钮名")   Then
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("分组不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("分组不可用")
      Else
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("按钮不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("按钮不可用")   
      End If
    End If
Next

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

点击浏览该文件:菜单权限.zip

此主题相关图片如下：对菜单及按钮 授权.png

上面代码修改后，可能要加到  用户登录 窗口的确定按钮吧？

上面代码代码写到登陆窗口的登陆按钮的click事件可以

但是在实际项目里，放在里面报错

 

此主题相关图片如下：小李 密码 f 登陆后窗口报错.png

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

点击浏览该文件:小李 密码 f 登陆后窗口报错.zip

上面代码用在上面的项目中ok了，

但是在实际项目中，还出现下面报错如下图（Button6就是登陆窗口 确定按钮）

实际项目窗口设计按帮助文件：主界面导航设计方案

此主题相关图片如下：还报错.png

 For Each i As object In ConfigBar.Items
    i.visible = True
    i.Enabled = True
Next

MessageBox.Show(2)————只提示1次 2

'For Each dr1 As DataRow In DataTables("菜单权限表").Select("用户分组 = '" & _UserGroup & "' and 用户名 = '" & _UserName & "'")
For Each dr1 As DataRow In DataTables("菜单权限表").Select("用户名 = '" & _UserName & "'")
MessageBox.Show(3)
    If dr1("菜单分区")= "功能区"  Then
        If dr1.IsNull("分组名")  Then
            RibbonTabs(dr1("菜单名")).Visible = Not dr1("菜单不可见")
            RibbonTabs(dr1("菜单名")).Enabled = Not dr1("菜单不可用")
        ElseIf dr1.IsNull("按钮名")   Then
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Visible = Not dr1("分组不可见")
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Enabled = Not dr1("分组不可用")
        Else
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Items(dr1("按钮名")).Visible = Not dr1("按钮不可见")
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Items(dr1("按钮名")).Enabled = Not dr1("按钮不可用")
        End If
    End If
Next
MessageBox.Show(3)————提示8次 3
实际项目窗口设计按帮助文件：主界面导航设计方案，用了8个功能区菜单名

For Each i As object In ConfigBar.Items
    i.visible = True
    i.Enabled = True
Next

'For Each dr1 As DataRow In DataTables("菜单权限表").Select("用户分组 = '" & _UserGroup & "' and 用户名 = '" & _UserName & "'")
For Each dr1 As DataRow In DataTables("菜单权限表").Select("用户名 = '" & _UserName & "'")
MessageBox.Show(3)
    If dr1("菜单分区")= "功能区"  Then
        If dr1.IsNull("分组名")  Then
            RibbonTabs(dr1("菜单名")).Visible = Not dr1("菜单不可见")
            RibbonTabs(dr1("菜单名")).Enabled = Not dr1("菜单不可用")
        ElseIf dr1.IsNull("按钮名")   Then
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Visible = Not dr1("分组不可见")
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Enabled = Not dr1("分组不可用")
        Else
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Items(dr1("按钮名")).Visible = Not dr1("按钮不可见")
            RibbonTabs(dr1("菜单名")).Groups(dr1("分组名")).Items(dr1("按钮名")).Enabled = Not dr1("按钮不可用")
        End If
    End If
Next
MessageBox.Show(3)————提示1次下图这个窗口，点击确定按钮后才能登陆进去系统，怎么取消不显示下图的窗口呢？

实际项目窗口设计按帮助文件：主界面导航设计方案

此主题相关图片如下：捕获.png