世俱杯 2025

Codejock 公司的Xtreme Command Bars 提供非常漂亮的Office风格的命令条和One Note样式的Tab. 这种构架完全支持菜单和工具栏的个性化设置， 它将在应用程序工作台上给你更大的控制权， Xtreme Command Bars 提供嵌入式主题支持,允许你选择预先定义的主题如Officexp、Office 2003、 Visual Studio .NET，或者自定义主题。本文主要介绍如何使用CommandBars控件操作多个工具栏。

点击下载Xtreme Command Bars最新试用版

默认情况下，添加工具栏时，该工具栏将显示在单独的行上。每个添加的工具栏将出现在前一个工具栏的下方。但是，很多时候使用代码将工具栏停靠在同一行中是非常有必要的。

'Parameters:
'   BarToDock - ToolBar to be placed to 
'             - the RIGHT of another ToolBar
'   BarOnLeft - ToolBar that will be on the LEFT side of BarToDock
'   VerticalBar - Set to false if the toolbars are docked at the 
'                 top or bottom of the window (horizontal), set to 
'                 true if the toolbars are on the left or right of 
'                 the window (vertical).

'sample usage:
'   Dim ToolBar1 As CommandBar, ToolBar2 As CommandBar
'   ..........Add controls to toolbars
'   DockRightOf ToolBar2, ToolBar1, False
Private Sub DockRightOf(BarToDock As CommandBar, _
            BarOnLeft As CommandBar, VerticalBar As Boolean)
    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long
    Dim LeftBar As CommandBar

    Set LeftBar = BarOnLeft

    CommandBars.RecalcLayout
    BarOnLeft.GetWindowRect Left, Top, Right, Bottom

    LeftBar.GetWindowRect Left, Top, Right, Bottom

    If (VerticalBar = False) Then
        CommandBars.DockToolBar BarToDock, Right, _
                         (Bottom + Top) / 2, LeftBar.Position
    Else
        CommandBars.DockToolBar BarToDock, (Left + Right) _
                                / 2, Bottom, LeftBar.Position
    End If
End Sub