DropDown Bordr disappears w/ custom color

Gday,

I am trying to recreate the outlook "find" bar, pictured below:




I have so far got mine to look like this:



(note the combobox appears weird - the border has disappeared.)

with the following code (not contiguous lines, these are snippets):



' set the colours so as to "remove" the gradient on the toolbar
CommandBars.SetSpecialColor COLOR_WINDOW, Form1.CommandBars1.GetSpecialColor(XPCOLOR_SPLITTER_FACE)
CommandBars.SetSpecialColor COLOR_BTNFACE, Form1.CommandBars1.GetSpecialColor(XPCOLOR_SPLITTER_FACE)
CommandBars.SetSpecialColor XPCOLOR_TOOLBAR_FACE, Form1.CommandBars1.GetSpecialColor(XPCOLOR_SPLITTER_FACE)
CommandBars.Options.LunaColors = False
CommandBars.RecalcLayout
    
Dim ToolBar As CommandBar


' add the buttons
Set ToolBar = CommandBars.Add("Standard1", xtpBarTop)
With ToolBar.Controls
     .Add xtpControlLabel, 9000, "    Look for:"
     Set cbo = .Add(xtpControlComboBox, 9001, "")
     cbo.DropDownListStyle = True
     Set ctrl = .Add(xtpControlPopup, 9002, "Search In")
     ctrl.Style = xtpButtonCaption
     Set ctrl = .Add(xtpControlButton, 9003, "Find Now")
     ctrl.Style = xtpButtonCaption
     Set ctrl = .Add(xtpControlButton, 9004, "Clear")
     ctrl.Style = xtpButtonCaption
     ctrl.Enabled = False
     Set ctrl = .Add(xtpControlPopup, 9005, "Options")
     ctrl.Style = xtpButtonCaption
     ctrl.Flags = xtpFlagRightAlign


     Set ctrl = .Add(xtpControlButton, 9006, "Close")
     ctrl.Flags = xtpFlagRightAlign

End With
   

' stuff to hide the fact it is a toolbar
CommandBars.EnableCustomization True

CommandBars(3).ModifyStyle XTPCommandBarStyle.XTP_CBRS_GRIPPER, 0
CommandBars(3).ContextMenuPresent = False
CommandBars.Options.ShowExpandButtonAlways = False
CommandBars.EnableCustomization False

CommandBars(3).SetFlags xtpFlagStretched, 0



All this is in an attempt to hide the fact that it is a toolbar. My problem is with the combobox. How can i set the colour of the border so it doesnt disappear? perhaps there is a "special colour" i can set?

Any advice is appreciated.

Thanks

I realised if I set the theme to xtpThemeOfficeXP I can set XPCOLOR_TOOLBAR_FACE to change the toolbar colour, then change COLOR_WINDOW to white to get back the dropdown. here is the end result:



This CommandBar is inside a picturebox which is inside an MDI child window. The applications main CommandBar (for menus/toolbars) is in the MDI Parent form.

I have noticed that after I added the CommandBars in the child form, the CommandBars control in the Parent form randomly loses its LunaColors value and it stays hte same even after restarting the app. If I break and manually set LunaColors to be true in VB's immediate window, it will switch back and work after multiple application restarts. Very strange behaviour indeed... Anybody experienced this before?

But we will fix it in next version.

dajv wrote: Great. Have you got a rough idea of when this might be available?

Hi, check out this topic for more info: https://forum.codejock.com/forum_posts.asp?TID=1549

yes.

This wasn't a problem...? I didn't do anything special, the tabbing works as expected.

Maybe i've misunderstood you, but I didnt have a problem with tabbing.