Define one Toolbar - resulting in two (one empty)

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

   Place CommandBars control on form
Add the following code in FormLoad:

Dim ToolbarHusb As CommandBar
    Set ToolbarHusb = CommandBarHusb.Add("Husband", xtpBarTop)
    AddButton ToolbarHusb.Controls, xtpControlButton, ID_SPOUSES_HUSB
    ' add a few more buttons

    CommandBarHusb.Icons.LoadBitmap App.Path & "\res\Female32.png", ID_SPOUSES_HUSB, xtpImageNormal 'Pic:4013
    'load a few more icons

Run the program:

I am getting a blank bar above the one I am defining.  Why?

Also, how do I turn off the "Add or Remove..." option?

VB6 ActiveX

DaveB

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
DaveB Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 13 March 2009 Status: Offline Points: 52	Post Options Post Reply Quote DaveB Report Post Thanks(0) Quote Reply Topic: Define one Toolbar - resulting in two (one empty) Posted: 23 May 2011 at 8:33pm
	Place CommandBars control on form Add the following code in FormLoad: Dim ToolbarHusb As CommandBar Set ToolbarHusb = CommandBarHusb.Add("Husband", xtpBarTop) AddButton ToolbarHusb.Controls, xtpControlButton, ID_SPOUSES_HUSB ' add a few more buttons CommandBarHusb.Icons.LoadBitmap App.Path & "\res\Female32.png", ID_SPOUSES_HUSB, xtpImageNormal 'Pic:4013 'load a few more icons Run the program: I am getting a blank bar above the one I am defining. Why? Also, how do I turn off the "Add or Remove..." option? VB6 ActiveX DaveB
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0

jpbro Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 12 January 2007 Status: Offline Points: 1355	Post Options Post Reply Quote jpbro Report Post Thanks(0) Quote Reply Posted: 23 May 2011 at 8:53pm
	1) Before building your toolbars, call CommandBarHusb.DeleteAll 2) ToolbarHusb.ShowExpandButton = False
	Product: Xtreme SuitePro (ActiveX) version 16.2.6 Platform: Windows XP - SP3 Language: Visual Basic 6.0 SP6