项目中遇到需根据用户习惯灵活配置导航的需求,原代码为写死状态,无法实现,因此查阅资料后整理如下:
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)
还需要代码中增加按钮事件,打开对应的程序。