Codejock Developer Community : Commmand Bar "Standard" button

Commmand Bar "Standard" button : Thank you - that works Great!Lee...

Wed, 01 Nov 2017 17:54:24 +0000

Author: trims30
Subject: 23471
Posted: 01 November 2017 at 5:54pm

Thank you - that works Great!

Lee

Commmand Bar "Standard" button : Hello,Try to use ToolBar.ContextMenuPresent...

Wed, 01 Nov 2017 17:45:48 +0000

Author: olebed
Subject: 23471
Posted: 01 November 2017 at 5:45pm

Hello,

Try to use

ToolBar.ContextMenuPresent = False

CommandBars(n).ContextMenuPresent = False

Regards,
Oleksandr Lebed

Commmand Bar "Standard" button : I have found that setting toolbar.visible...

Thu, 19 Oct 2017 14:02:27 +0000

Author: trims30
Subject: 23471
Posted: 19 October 2017 at 2:02pm

I have found that setting toolbar.visible = true in sub CommandBars_ToolBarVisibleChanged will keep the toolbar visible after "Standard" is clicked.

Now, all I need to know is how to prevent "Standard" button from appearing when right clicking on tool bar.

Suggestions PLEASE!

Commmand Bar "Standard" button : Normal 0 ...

Mon, 16 Oct 2017 11:09:26 +0000

Author: trims30
Subject: 23471
Posted: 16 October 2017 at 11:09am

Am using Command Bars Control in VB6

Just noticed that if I Right Click on Command Bar I get apop-up that says "Standard".
If I then click on the Standard button the command barwith all buttons disappears.

How do I prevent this from occurring?

My Code is shown below:

Dim ToolBar AsCommandBar

Set ToolBar =CommandBars.Add("Standard", xtpBarTop)

ToolBar.EnableDocking 0

ToolBar.EnableDocking xtpFlagStretched

ToolBar.ShowTextBelowIcons = True

AddControlToolBar.Controls, xtpControlButton, ID_Button_Clear, "Clear", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_Add, "New", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_Edit, "Edit", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_Delete, "Delete", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_Save, "Save", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_Sort, "Sort", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_PgUp, "PgUp", False

AddControlToolBar.Controls, xtpControlButton, ID_Button_PgDn, "PgDn", False

AddControl ToolBar.Controls,xtpControlButton, ID_Button_Exit, "Exit", False

SetCommandBars.Icons = workspace.ImageManager.Icons ''Assign Icons

CommandBars.Options.LargeIcons = True ''Use Large Icons

CommandBars.Options.SetIconSize True, 24, 24 ''Size 32 x 32

CommandBars.Options.ShowExpandButtonAlways = False ''Don''t show Expand Buttons

CommandBars(1).ModifyStyle XTP_CBRS_GRIPPER, 0 ''Hide Gripper on ToolBar

CommandBars(2).ModifyStyle XTP_CBRS_GRIPPER, 0 ''Hide Gripper on Button Bar

CommandBars.VisualTheme = xtpThemeOffice2003