如何在RibbonPageGroup中遍历DevExpress项？

Question

我需要使用循环遍历RibbonPageGroup中的所有项。我尝试将所有功能区项目的可见性属性设置为'true/always‘

    For Each rp As RibbonPage In ribbonControl.Pages
        rp.Visible = True
            For Each pg As RibbonPageGroup In rp.Groups
                    pg.Visible = True
                  For Each btn As DevExpress.XtraBars.BarButtonItem In pg.??????
                      btn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                Next
          Next
    Next

Answer 1

RibbonPageGroup中没有bar items。您可以通过RibbonPageGroup.ItemLinks属性迭代bar item links。

有关更多信息，请参阅Accessing Bar Items and Links文章。

Answer 2

您可以使用LINQ来完成此操作：

For Each bbi As var In RbpVersion.ItemLinks.Cast(Of BarItemLink)().[Select](Function(x) x.Item)
  Console.WriteLine(bbi.Caption)
Next

Answer 3

我也有同样的问题。用这段代码对它进行了排序。完美地工作：

For Each pagegroup As DevExpress.XtraBars.Ribbon.RibbonPage In rbnSafety.Pages
    For Each group As DevExpress.XtraBars.Ribbon.RibbonPageGroup In pagegroup.Groups
        For Each button As DevExpress.XtraBars.BarButtonItem In group.Ribbon.Items.OfType(Of DevExpress.XtraBars.BarButtonItem)()
        If button.Name <> "rbtnExit" Then
           button.Enabled = False
        End If
        Next
        For Each button As DevExpress.XtraBars.BarSubItem In group.Ribbon.Items.OfType(Of DevExpress.XtraBars.BarSubItem)()
            button.Enabled = False
        Next
     Next
 Next