DevExpress 的 ribbonControl 代码配置导航

坐个闲人

已于 2024-09-11 20:42:55 修改

阅读量420

点赞数 5

分类专栏： C# devexpress 控件使用文章标签： c#

于 2024-08-16 08:37:19 首次发布

本文链接：https://blog.csdn.net/qq_17493761/article/details/141241135

版权

C# devexpress 控件使用专栏收录该内容

1 篇文章

订阅专栏

项目中遇到需根据用户习惯灵活配置导航的需求，原代码为写死状态，无法实现，因此查阅资料后整理如下：

  Dim ribbonPage As New RibbonPage("T")  '第1层
  ribbonControl1.Pages.Add(ribbonPage)

  Dim ribbonPageGroup As New RibbonPageGroup("devss") '第2层
  ribbonPage.Groups.Add(ribbonPageGroup)

  Dim barSubItem As New DevExpress.XtraBars.BarSubItem()  '第3层，菜单组
  barSubItem.Caption = "butitem"
  ribbonPageGroup.ItemLinks.Add(barSubItem)

  Dim barButtonItem As New DevExpress.XtraBars.BarButtonItem()  '第3层，按钮
  barButtonItem.Caption = "but"

  Dim barButtonItem2 As New DevExpress.XtraBars.BarButtonItem() '第4层，菜单组中的按钮
  barButtonItem2.Caption = "but"
  barSubItem.AddItem(barButtonItem2)

还需要代码中增加按钮事件，打开对应的程序。