Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Commandbar position
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Commandbar position

 Post Reply Post Reply
Author
Message
Mr.Den View Drop Down
Groupie
Groupie
Avatar

Joined: 26 August 2007
Status: Offline
Points: 50
Post Options Post Options   Thanks (0) Thanks(0)   Quote Mr.Den Quote  Post ReplyReply Direct Link To This Post Topic: Commandbar position
    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
Back to Top
Aaron View Drop Down
Senior Member
Senior Member
Avatar

Joined: 29 January 2008
Status: Offline
Points: 2192
Post Options Post Options   Thanks (0) Thanks(0)   Quote Aaron Quote  Post ReplyReply Direct Link To This Post 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....
Back to Top
Mr.Den View Drop Down
Groupie
Groupie
Avatar

Joined: 26 August 2007
Status: Offline
Points: 50
Post Options Post Options   Thanks (0) Thanks(0)   Quote Mr.Den Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.063 seconds.