Solved: DoDockBottomOf ?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
JasonG Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 July 2008 Status: Offline Points: 76	Post Options Post Reply Quote JasonG Report Post Thanks(0) Quote Reply Topic: Solved: DoDockBottomOf ? 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

JasonG Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 July 2008 Status: Offline Points: 76	Post Options Post Reply Quote JasonG Report Post Thanks(0) Quote Reply 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