Ribbonbar add/refresh

our RibbonBar sample do all these things in runtime.

 

Create new project and copy this code

 

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    If (Control.Id = 100) Then
        Dim RibbonBar As RibbonBar
        Set RibbonBar = CommandBars1.ActiveMenuBar
        RibbonBar.Tab(0).Groups(0).Add xtpControlButton, 100, "More Controls"
    End If
   
End Sub

Private Sub Form_Load()
Dim RibbonBar As RibbonBar
Set RibbonBar = CommandBars1.AddRibbonBar("Ribbon")
RibbonBar.MinimumVisibleWidth = 0

Dim RibbonTab As RibbonTab
Set RibbonTab = RibbonBar.InsertTab(0, "Tab")

Dim Group As RibbonGroup
Set Group = RibbonTab.Groups.AddGroup("Group", 1)
Group.Add xtpControlButton, 100, "Add Control"

End Sub

Try this

 

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    If (Control.Id = 100) Then
        Dim RibbonBar As RibbonBar
        Set RibbonBar = CommandBars1.ActiveMenuBar
       
        Dim Combo As CommandBarComboBox
        Set Combo = RibbonBar.FindControl(xtpControlComboBox, 101, True)
        Combo.AddItem "New String"
    End If
   
End Sub

 

Create new project and insert last code

 

Here i am again.

Ive edited the codejock sample.

 

File attached

 

Hope this helps, as you can see in the sample, its possible to get combobox info but i cant add items to it?

 

Hope you can help elog. Thank you

 

In this sample you have Combo + Gallery.

 

Comment line

Set Combo.CommandBar = ComboPopup

 

and you will be able use

 

Combo.AddItem "New String"

in handler