翻譯|使用教程|編輯:鮑佳佳|2020-07-20 14:14:11.337|閱讀 357 次
概述:本文主要講述Xtreme Suite Pro的工具欄控件commandbar的一些使用教程:如何添加、卸載工具欄,以及如何在工具欄中刪除EXpand按鈕
# 界面/圖表報(bào)表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
點(diǎn)擊下載Xtreme suite Pro最新試用版
Xtreme Command Bars 提供非常漂亮的Office風(fēng)格的命令條和One Note樣式的Tab. 這種構(gòu)架完全支持菜單和工具欄的個(gè)性化設(shè)置, 它將在應(yīng)用程序工作臺(tái)上給你更大的控制權(quán), Xtreme Command Bars提供嵌入式主題支持,允許你選擇預(yù)先定義的主題如Officexp、Office 2003、 Visual Studio .NET,或者自定義主題。它是Xtreme Suite的一部分。
從工具欄中刪除Expand Button
該展開按鈕是按鈕顯示在工具欄的末端,并顯示在工具欄上的按鈕的列表,以便用戶可以很容易隱藏或顯示它們。列表的底部是一個(gè)自定義選項(xiàng),用于進(jìn)一步自定義工具欄。
下面的代碼將從所有工具欄中刪除Expand button。
CommandBars.Options.ShowExpandButtonAlways = False
您也可以分別隱藏工具欄的“ Expand button”。為此,您需要為每個(gè)單獨(dú)的工具欄設(shè)置ShowExpandButton屬性的值 。這可用于覆蓋 各個(gè)工具欄的ShowExpandButtonAlways效果。
下面的代碼將顯示第一個(gè)工具欄的“ Expand ”按鈕。注意CommandBar(1)是ActiveMenubar。卸下工具欄夾CommandBars(2).ShowExpandButton = True
抓取只是示意性的,移除抓取工具不能控制工具欄的移動(dòng)。若要修改工具欄的停靠位置,則需要使用“指定工具欄停靠位置”文章中討論的EnableDocking方法。
ModifyStyle方法被用來去除或更換工具欄的抓取器。可以刪除或添加的樣式存儲(chǔ)在XTPCommandBarStyle中列舉。
下面的代碼從菜單欄和第一個(gè)工具欄上刪除了抓手。
'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方法用于添加空白欄。該方法接受工具欄的名稱和位置。自定義工具欄時(shí),會(huì)看到為工具欄指定的 名稱。建議您將工具欄命名為有意義的名稱,以概括工具欄上的按鈕組執(zhí)行的任務(wù)類型。該工具欄位置,其中被添加時(shí),它在工具欄將位于指示,可用的位置被存儲(chǔ)在XTPBarPosition 枚舉。工具欄可以放置的位置包括應(yīng)用程序的頂部,底部,左側(cè)和右側(cè)。工具欄也可以開始浮動(dòng)。
下面的代碼說明了如何在應(yīng)用程序頂部添加空白工具欄。
Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
本站文章除注明轉(zhuǎn)載外,均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載,但請(qǐng)務(wù)必注明出處、不得修改原文相關(guān)鏈接,如果存在內(nèi)容上的異議請(qǐng)郵件反饋至chenjj@fc6vip.cn
文章轉(zhuǎn)載自: