http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 27 May 2026 16:29:39 +0000 Thu, 31 Mar 2005 09:45:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=2062 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=2062&PID=6043&title=two-toolbars-in-a-row#6043 Author: SuperMario
Subject: 2062
Posted: 31 March 2005 at 9:45am

Yes, you can.

'This code adds the toolbars,
  Dim ToolBar As CommandBar
  
  Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
  With ToolBar.Controls
    ............. 
  End With
  
  Dim ExtendedBar As CommandBar
  Set ExtendedBar = CommandBars.Add("Extended", xtpBarTop)
  With ExtendedBar.Controls
       ...........  ;   
  End With
   
'This code docks a toolbar to the right of another toolbar
  DockRightOf ExtendedBar, ToolBar, False

'This is the code for the DockRightOf function
Private Sub DockRightOf(BarToDock As CommandBar, BarOnLeft As CommandBar, Optional VerticalBar As Boolean = False)
  Dim Left As Long
  Dim Top As Long
  Dim Right As Long
  Dim Bottom As Long
  
  CommandBars.RecalcLayout
  BarOnLeft.GetWindowRect Left, Top, Right, Bottom
  
  If (Not VerticalBar) Then
    CommandBars.DockToolBar BarToDock, Right, (Bottom + Top) / 2, BarOnLeft.Position
  Else
    CommandBars.DockToolBar BarToDock, (Left + Right) / 2, Bottom, BarOnLeft.Position
  End If
End Sub  ]]> Thu, 31 Mar 2005 09:45:34 +0000 http://forum.codejock.com/forum_posts.asp?TID=2062&PID=6043&title=two-toolbars-in-a-row#6043 http://forum.codejock.com/forum_posts.asp?TID=2062&PID=6041&title=two-toolbars-in-a-row#6041 Author: Sebastià
Subject: 2062
Posted: 31 March 2005 at 9:41am

Is it possible to create programatically two toolbars in a row?

Thanks in advence

Sebastià
]]> Thu, 31 Mar 2005 09:41:34 +0000 http://forum.codejock.com/forum_posts.asp?TID=2062&PID=6041&title=two-toolbars-in-a-row#6041