Ajouter un bouton à un groupe de rubans DevExpress

Question

Comment puis-je ajouter un bouton à un groupe de mon ruban par programmation? Voici mon code jusqu'à présent qui Ajoute avec succès une nouvelle ribbonPage, puis Ajoute un RibbonGroup à la page. Mais je dois ajouter des boutons à la ribbonGroup et sa ne fonctionne pas pour moi

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

Vous aurez besoin de faire un nouveau bouton pour le contrôle du ruban en tant que tel:

Dim newButton As New DevExpress.XtraBars.BarButtonItem 

Ensuite, ajoutez ceci à votre ruban Groupe de pages

aGroup1.Container.Add(newButton)