http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 15:28:55 +0000 Thu, 01 Mar 2007 12:20:48 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6539 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20837&title=adding-a-combo-box-to-command-bar#20837 Author: shagge22
Subject: 6539
Posted: 01 March 2007 at 12:20pm

That worked.

Thanks for your help...]]> Thu, 01 Mar 2007 12:20:48 +0000 http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20837&title=adding-a-combo-box-to-command-bar#20837 http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20835&title=adding-a-combo-box-to-command-bar#20835 Author: jcollier
Subject: 6539
Posted: 01 March 2007 at 11:31am

I did the following with a Ribbon.  I'm not sure if it's the 'preferred' method, but it worked.

In General Declarations:

Dim FilterCombo as CommandBarComboBox

In function that creates the ribbonbar:

Dim ControlCombo As CommandBarComboBox

Set ControlCombo = GroupContainer.Add(xtpControlComboBox, ID_FILTERCONTAINERLIST, "Filter")
        ControlCombo.Width = 200
        ControlCombo.DropDownListStyle = False
        ControlCombo.EditHint = "Container Filter..."
        ControlCombo.AddItem "Find Unbilled Containers Due Today"
        ControlCombo.AddItem "Find Unbilled Containers Past Due"
        ControlCombo.AddItem "Find Unbilled Containers Not Past Due"

        Set FilterCombo = ControlCombo

'then use FilterCombo to call events.  You'll have to alter it a bit for 'command bars but I hope this helps.
]]> Thu, 01 Mar 2007 11:31:08 +0000 http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20835&title=adding-a-combo-box-to-command-bar#20835 http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20832&title=adding-a-combo-box-to-command-bar#20832 Author: shagge22
Subject: 6539
Posted: 01 March 2007 at 11:00am

I am adding a combo box to a command bar. I need to display a text string that is much longer than the size of the combo box. Is there a way to expand the width of the combo box? I am using version 10.3.

Code:
Dim Control As CommandBarControl
Dim PresetBar As CommandBar

Set PresetBar = Cmd_Bar.Add("Preset", xtpBarTop)
    
With PresetBar.Controls
    Set Control = .Add(xtpControlLabel, ID_PRESET_LABEL,
    "Saved Scanner Presets:")
       
    Set Control = .Add(xtpControlComboBox,
    ID_PRESET_COMBO, "No Scanner Presets Available")
    Control.Enabled = True
       
    Set Control = .Add(xtpControlButton,
    ID_PRESET_BUTTON, "")
    Control.Caption = "Set Default"
End With
]]> Thu, 01 Mar 2007 11:00:06 +0000 http://forum.codejock.com/forum_posts.asp?TID=6539&PID=20832&title=adding-a-combo-box-to-command-bar#20832