Solved: DoDockBottomOf ?
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=11582
Printed Date: 22 September 2024 at 7:31pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: Solved: DoDockBottomOf ?
Posted By: JasonG
Subject: Solved: DoDockBottomOf ?
Date Posted: 25 July 2008 at 10:57am
This function will attach two commandbars to eachother, side by side.....
Private Sub doDockRightOf(BarToDock As CommandBar, BarOnLeft As CommandBar, cmd As CommandBars)
Dim Left As Long
Dim Top As Long
Dim Right As Long
Dim Bottom As Long
cmd.RecalcLayout
BarOnLeft.GetWindowRect Left, Top, Right, Bottom
cmd.DockToolBar BarToDock, Right, (Bottom + Top) / 2, BarOnLeft.Position
End Sub
What X & Y coordinates would I use if I wanted to dock two bars, one below the other, on the right side of the window? The "BarOnTop" is already set to position=BarRight..
Private Sub doDockBottomOf(BarToDock As CommandBar, BarOnTop As CommandBar, cmd As CommandBars)
Dim Left As Long
Dim Top As Long
Dim Right As Long
Dim Bottom As Long
cmd.RecalcLayout
BarOnTop.GetWindowRect Left, Top, Right, Bottom
cmd.DockToolBar BarToDock, ?, ?, BarOnTop.Position
End Sub
-------------
Product: Xtreme SuitePro (ActiveX) 12.0.1
Platform: Windows Vista/XP
Language: Visual Basic 6.0 SP6
|
Replies:
Posted By: JasonG
Date Posted: 25 July 2008 at 11:23am
Duh.
cmd.DockToolBar BarToDock, (Right + Left) / 2, Bottom, BarOnTop.Position
-------------
Product: Xtreme SuitePro (ActiveX) 12.0.1
Platform: Windows Vista/XP
Language: Visual Basic 6.0 SP6
|
|