Codejock 软件的Xtreme Command Bars 提供非常漂亮的Office风格的命令条和One Note样式的Tab. 这种构架完全支持菜单和工具栏的个性化设置, 应用程序工作台上你有绝对的控制权,支持嵌入式主题,允许预定或者自定义主题。点击查看产品授权方式>>
Xtreme Command Bars最新试用版
指定停靠工具栏位置
CommandBars.EnableDocking方法用于指定其中一个工具栏的停靠,以及它是如何显示。XTPToolBarFlags 方法包含不同的工具栏选项,这些选项可以应用到EnableDocking方法。您可以组合值以适应您的需求,例如,您可以指定工具栏只能停靠在应用程序的顶部或底部。
下图说明了工具栏停靠在应用程序中的几个不同位置。

下面的代码说明了如何使用工具栏,使其只能停靠在应用程序的顶部和底部,或者浮动在应用程序界面。
Dim ToolBar As CommandBarSet ToolBar = CommandBars.Add("Standard", xtpBarTop)ToolBar.EnableDocking xtpFlagAlignBottomOr 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起!咨询客服了解更多授权方式及优惠!
![]()
标签:
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!