Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Solved: DoDockBottomOf ?
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Solved: DoDockBottomOf ?

 Post Reply Post Reply
Author
Message
JasonG View Drop Down
Groupie
Groupie


Joined: 07 July 2008
Status: Offline
Points: 76
Post Options Post Options   Thanks (0) Thanks(0)   Quote JasonG Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
JasonG View Drop Down
Groupie
Groupie


Joined: 07 July 2008
Status: Offline
Points: 76
Post Options Post Options   Thanks (0) Thanks(0)   Quote JasonG Quote  Post ReplyReply Direct Link To This Post 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
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.156 seconds.