http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 01 Jun 2026 22:52:37 +0000 Fri, 25 Jul 2008 11:23:06 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=11582 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=11582&PID=38897&title=solved-dodockbottomof#38897 Author: JasonG
Subject: 11582
Posted: 25 July 2008 at 11:23am

Duh.

cmd.DockToolBar BarToDock, (Right + Left) / 2, Bottom, BarOnTop.Position
]]> Fri, 25 Jul 2008 11:23:06 +0000 http://forum.codejock.com/forum_posts.asp?TID=11582&PID=38897&title=solved-dodockbottomof#38897 http://forum.codejock.com/forum_posts.asp?TID=11582&PID=38896&title=solved-dodockbottomof#38896 Author: JasonG
Subject: 11582
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
]]> Fri, 25 Jul 2008 10:57:20 +0000 http://forum.codejock.com/forum_posts.asp?TID=11582&PID=38896&title=solved-dodockbottomof#38896