半岛外围网上直营

点击下载Xtreme suite Pro最新试用版

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

从工具栏中删除Expand Button

该展开按钮是按钮显示在工具栏的末端，并显示在工具栏上的按钮的列表，以便用户可以很容易隐藏或显示它们。列表的底部是一个自定义选项，用于进一步自定义工具栏。

下面的代码将从所有工具栏中删除Expand button。

CommandBars.Options.ShowExpandButtonAlways = False 

您也可以分别隐藏工具栏的“ Expand button”。为此，您需要为每个单独的工具栏设置ShowExpandButton属性的值 。这可用于覆盖 各个工具栏的ShowExpandButtonAlways效果。

CommandBars（2）.ShowExpandButton = True

抓取只是示意性的，移除抓取工具不能控制工具栏的移动。若要修改工具栏的停靠位置，则需要使用“指定工具栏停靠位置”文章中讨论的EnableDocking方法。

ModifyStyle方法被用来去除或更换工具栏的抓取器。可以删除或添加的样式存储在XTPCommandBarStyle中列举。

下面的代码从菜单栏和第一个工具栏上删除了抓手。

 'Remove gripper from the menu bar 
  CommandBars.ActiveMenuBar.ModifyStyle XTP_CBRS_GRIPPER, 0   
  'Remove gripper from the first toolbar.  Note that Commandbars(1) 
  'is the menu bar 
  CommandBars(2).ModifyStyle XTP_CBRS_GRIPPER, 0

添加工具栏

该CommandBars.Add方法用于添加空白栏。该方法接受工具栏的名称和位置。自定义工具栏时，会看到为工具栏指定的 名称。建议您将工具栏命名为有意义的名称，以概括工具栏上的按钮组执行的任务类型。该工具栏位置，其中被添加时，它在工具栏将位于指示，可用的位置被存储在XTPBarPosition 枚举。工具栏可以放置的位置包括应用程序的顶部，底部，左侧和右侧。工具栏也可以开始浮动。

下面的代码说明了如何在应用程序顶部添加空白工具栏。

Dim ToolBar As CommandBar 
 Set ToolBar = CommandBars.Add("Standard", xtpBarTop)