將按鈕添加到功能區組DevExpress

Question

如何以編程方式將按鈕添加到我的功能區組？這是我的代碼，目前已成功添加一個新的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 

Answer 1

您將需要一個新的按鈕功能區控制，例如：

Dim newButton As New DevExpress.XtraBars.BarButtonItem 

然後添加到您的絲帶頁組

aGroup1.Container.Add(newButton)