翻譯|使用教程|編輯:鮑佳佳|2020-08-19 11:46:55.347|閱讀 424 次
概述:本文主要是講述如何利用Xtreme Command Bars制定工具欄的停靠位置,以及如何用代碼將其實現,講述了EnableDocking方法的使用。
# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
Codejock 軟件的Xtreme Command Bars 提供非常漂亮的Office風格的命令條和One Note樣式的Tab. 這種構架完全支持菜單和工具欄的個性化設置, 應用程序工作臺上你有絕對的控制權,支持嵌入式主題,允許預定或者自定義主題。點擊查看產品授權方式>>
指定停靠工具欄位置
CommandBars.EnableDocking方法用于指定其中一個工具欄的停靠,以及它是如何顯示。XTPToolBarFlags 方法包含不同的工具欄選項,這些選項可以應用到EnableDocking方法。您可以組合值以適應您的需求,例如,您可以指定工具欄只能停靠在應用程序的頂部或底部。
下圖說明了工具欄停靠在應用程序中的幾個不同位置。
下面的代碼說明了如何使用工具欄,使其只能停靠在應用程序的頂部和底部,或者浮動在應用程序界面。
Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) ToolBar.EnableDocking xtpFlagAlignBottom Or xtpFlagAlignTop
完全禁用對接,只需將0或標志(例如xtpFlagStretched)傳遞到工具欄的EnableDocking方法中。
Dim ToolBar As CommandBar Set ToolBar = CommandBars.Add("Standard", xtpBarTop) ToolBar.EnableDocking 0
現CodeJock旗下產品限時優惠Xtreme Command Bars、Toolkit Pro、Suite Pro加入在線訂購低至1105起!咨詢客服了解更多授權方式及優惠!
本站文章除注明轉載外,均為本站原創或翻譯。歡迎任何形式的轉載,但請務必注明出處、不得修改原文相關鏈接,如果存在內容上的異議請郵件反饋至chenjj@fc6vip.cn
文章轉載自: