點擊下載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)