Command Bars - Commandbar position

Print Page | Close Window

Commandbar position

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=14267
Printed Date: 16 June 2025 at 5:25pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Commandbar position

Posted By: Mr.Den
Subject: Commandbar position
Date Posted: 11 May 2009 at 11:35am

Is there a way when creating a floating commandbar in code to specify the left and top of the commandbar?

When I create the commandbar, it is at 0,0 (left,top) of my screen.

Here is the code I am using:

Dim obBar As CommandBar
Dim obCtrl As CommandBarControl

Set obBar = obCommandBars.Add("Mismatched page numbers", xtpBarFloating)

obBar.Closeable = False
obBar.Customizable = False
obBar.EnableDocking xtpFlagFloating
obBar.ShowExpandButton = False

Set obCtrl = obBar.Controls.Add(xtpControlButton, ID_CTRL_OPEN_MISMATCHPAGE, "Open")
obCtrl.DescriptionText = " Open saved list"
obCtrl.IconId = ICON_CTRL_NULL
obCtrl.Style = xtpButtonAutomatic

Set obCtrl = obBar.Controls.Add(xtpControlButton, ID_CTRL_GENERATE_MISMATCHPAGE, "Generate")
obCtrl.DescriptionText = " Generate list"
obCtrl.IconId = ICON_CTRL_NULL
obCtrl.Style = xtpButtonAutomatic

Set obCtrl = obBar.Controls.Add(xtpControlButton, ID_CTRL_EXPORT_MISMATCHPAGE, "Export")
obCtrl.DescriptionText = " Export list"
obCtrl.IconId = ICON_CTRL_NULL
obCtrl.Style = xtpButtonAutomatic

-------------
Product: Xtreme SuitePro (ActiveX) version 16.3.1

Platform: Windows 7 Professional (64bit) - SP 1

Language: Visual Basic 6.0 SP 6

Replies:

Posted By: Aaron
Date Posted: 11 May 2009 at 12:52pm

Hi,

You can use method:

CommandBars.DockToolBar obBar, 1000, 1000, xtpBarFloating

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....

Posted By: Mr.Den
Date Posted: 12 May 2009 at 6:51am

Thank you Aaron, for the fast reply. I got buisy and did not have time to try until today, works perfect

-------------
Product: Xtreme SuitePro (ActiveX) version 16.3.1

Platform: Windows 7 Professional (64bit) - SP 1

Language: Visual Basic 6.0 SP 6