Combobox Items Not Displaying

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

   Using the following code can anyone tell me why, when I click the combo on the CommandBar, nothing appears?  It just kinda flickers and nothing else happens.

Dim Control As CommandBarControl
Dim FormatBar As CommandBar

Set FormatBar = CommandBars.Add("Format", xtpBarTop)
CommandBars.ActiveMenuBar.Visible = False

With FormatBar.Controls
    Set Control = .Add(xtpControlComboBox, 1, "Font")
    Control.Width = 140
    Control.DropDownListStyle = True
    Control.AddItem "Tahoma"
    Control.AddItem "Arial"
    Control.AddItem "Times New Roman"
End With

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
jcollier Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 15 February 2006 Status: Offline Points: 250	Post Options Post Reply Quote jcollier Report Post Thanks(0) Quote Reply Topic: Combobox Items Not Displaying Posted: 13 October 2006 at 5:53pm
	Using the following code can anyone tell me why, when I click the combo on the CommandBar, nothing appears? It just kinda flickers and nothing else happens. Dim Control As CommandBarControl Dim FormatBar As CommandBar Set FormatBar = CommandBars.Add("Format", xtpBarTop) CommandBars.ActiveMenuBar.Visible = False With FormatBar.Controls Set Control = .Add(xtpControlComboBox, 1, "Font") Control.Width = 140 Control.DropDownListStyle = True Control.AddItem "Tahoma" Control.AddItem "Arial" Control.AddItem "Times New Roman" End With

jcollier Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 15 February 2006 Status: Offline Points: 250	Post Options Post Reply Quote jcollier Report Post Thanks(0) Quote Reply Posted: 16 October 2006 at 1:34pm
	Seems to work if I take out the .DropDownListStyle line. Not sure why but it works.

tobi Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 September 2004 Location: Germany Status: Offline Points: 451	Post Options Post Reply Quote tobi Report Post Thanks(0) Quote Reply Posted: 16 October 2006 at 3:30pm
	Did you try to put .DropDownListStyle before adding entries ?