Add CommandBarControl Before Item

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

I've been trying to add a CommandBarControl before an existing item in a dynamically generated menu...

I have a QuickAccess control set up as follows (this works fine):

      Set objQA = mobjRibbonBar.QuickAccessControls.Add(xtpControlSplitButtonPopup, CMD_Print, "Print")
      objQA.CommandBar.BarID = CMD_Print
      With objQA.CommandBar.Controls
         Set objCtrl = .Add(xtpControlLabel, CMD_PrinterDeviceLabel, "Available Printers")
         Set objCtrl = .Add(xtpControlButton, CMD_PrintSetup, "Print Setup")
         objCtrl.BeginGroup = True
      End With

Now I want to dynamically populate a list of available printers between the CMD_PrinterDeviceLabel and CMD_PrintSetup controls. I'm using the InitCommandsPopup event to capture when the CMD_Print QA control drop down button has been pressed as follows:

Private Sub CommandBars1_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar)

   Dim i As Long
   Dim objCtrl As CommandBarControl

   Select Case CommandBar.BarID
   Case CMD_Print
        ' Lots of code not shown to show/hide printers dynamically
   End Select

This also works okay, except when I add a printer to the list, it always appears below the CMD_PrintSetup control. I've tried:

CommandBar.Controls.Add xtpControlButton, CMD_PrinterDevice + i, Printers(i).DeviceName, CMD_PrintSetup

And

CommandBar.Controls.Add xtpControlButton, CMD_PrinterDevice + i,
Printers(i).DeviceName, CommandBar.FindControl(, CMD_PrintSetup).Index

And

CommandBar.Controls.Add xtpControlButton, CMD_PrinterDevice + i,
Printers(i).DeviceName, CommandBar.FindControl(, CMD_PrintSetup)

Without success (the printer device names always get added below the CMD_PrintSetup control). Is there a way to accomplish this?

Thanks in advance.