如何以编程方式向我的功能区组添加按钮?到目前为止,我的代码是成功添加新的ribbonPage,然后将RibbonGroup添加到页面。但是我需要在ribbonGroup中添加按钮而不能为我工作
Imports DevExpress.XtraBars.Ribbon
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim menu As New RibbonControl
Dim aPage As New RibbonPage("Nicks Page")
'groups
Dim aGroup1 As New RibbonPageGroup("1st Group")
'ADD BUTTONS TO RIBBON GROUP HERE
aPage.Groups.Add(aGroup1)
menu.Pages.Add(aPage)
Me.Controls.Add(menu)
End Sub
答案 0 :(得分:1)
您需要为功能区控件创建一个新按钮:
Dim newButton As New DevExpress.XtraBars.BarButtonItem
然后将其添加到功能区页面组
aGroup1.Container.Add(newButton)