codejock 用法记录
1、设置菜单字体大小,菜单高度不变
RibbonBarActive.CommandBars.Options.Font.Size = 8
2、设置菜单字体大小,随菜单高度改变
'系统皮肤
Dim ControlOptions As XtremeCommandBars.CommandBarPopup
Set ControlOptions = objRibbonBar.Controls.Add(xtpControlPopup, 0, "系统皮肤")
ControlOptions.flags = xtpFlagRightAlign
Dim Control2 As XtremeCommandBars.CommandBarControl
Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "皮肤风格")
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLUE2007, "Office 2007 Blue"
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2007, "Office 2007 Silver"
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLACK2007, "Office 2007 Black"
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEAQUA2007, "Office 2007 Aqua")
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLUE2010, "Office 2010 Blue")
Control2.BeginGroup = True
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2010, "Office 2010 Silver"
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLACK2010, "Office 2010 Black")
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLESCENIC7, "Windows 7 Scenic")
Control2.BeginGroup = True
' '字体大小
Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "字体大小")
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_FONT_SYSTEM, "系统字体"
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_FONT_NORMAL, "正常大小"
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_FONT_LARGE, "大字体"
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_FONT_EXTRALARGE, "特大字体")
Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_FONT_AUTORESIZEICONS, "自动大小")
Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
Dim FontSizes(3) As Integer
FontSizes(0) = 0
FontSizes(1) = 11
FontSizes(2) = 13
FontSizes(3) = 16
Case ID_OPTIONS_FONT_SYSTEM, ID_OPTIONS_FONT_NORMAL, ID_OPTIONS_FONT_LARGE, ID_OPTIONS_FONT_EXTRALARGE
Dim newFontHeight As Integer
newFontHeight = FontSizes(Control.id - ID_OPTIONS_FONT_SYSTEM)
RibbonBarActive.FontHeight = newFontHeight
Case ID_OPTIONS_FONT_AUTORESIZEICONS
CommandBars1.PaintManager.AutoResizeIcons = Not CommandBars1.PaintManager.AutoResizeIcons
CommandBars1.RecalcLayout
RibbonBarActive.RedrawBar
end sub
转载于:https://www.cnblogs.com/czhelp/p/5005076.html
codejock 用法记录相关推荐
- 小白练习cocos creator——property用法记录
property用法记录 参考文档:官方文档-属性检查器 在记录property用法之前,先说下从官方文档中摘抄的笔记:用property修饰的属性是组件脚本中声明的公开的并可被序列化存储在场景和动画 ...
- 【二开】Jeecgboot Online表单js增强用法记录
[二开]Jeecgboot Online表单js增强用法记录 表单js增强 loaded(){this.$nextTick(()=>{//获取表单maplet rows = this.getFi ...
- set classpath用法记录
set classpath用法记录 1.set classpath(查看classpath路径) 2.set classpath= 3.set classpath=d:\test (test后不加分号 ...
- mysql查询去重第一条_Mysql用法记录 - Ashley-OSCHINA的个人空间 - OSCHINA - 中文开源技术交流社区...
1.查询某个字段,在数据库不重复的条数(去重查询) select count(distinct item_uid) from supply_order; 查询 表 supply_order 中 ite ...
- Python读取显示raw图片+numpy基本用法记录
这次任务是拿到了几张raw图片,没其他头文件或信息,需要对raw图片使用python打开并显示 (作为了一个初学者,整天搞jpg.png,突然来了个raw,表示很头大) 1.获取raw图片shape信 ...
- vue 2.6 插槽v-slot用法记录
v-slot用法简记 用法示例 匿名插槽与具名插槽 插槽作用域 组件使用插槽动态命名 总结 用法示例 vue2.6统一了插槽的语法v-slot 匿名插槽与具名插槽 在其他组件中使用child组件 &l ...
- CountDownLatch/CyclicBarrie用法记录
在jdk1.5中,java提供了很多工具类帮助我们进行并发编程,其中就有CountDownLatch和CyclicBarrie 1.CountDownLatch的用法 CountDownLatch 位 ...
- jqueryui / accordion的用法记录
jqueryui 的 widget 中包含了基本上我们都需要的ui组件, 除了那个unslider. 参考地址是: www.jqueryui.com. 要能够看懂/并使用/ 完全掌握的话, 就要使用其 ...
- C# Winform ToolStripContainer ToolStrip相关用法记录
用过VS的都知道,顶部有很多工具条,可以显示隐藏,也可以拖来拖去.这个在winform里面就是用ToolStripContainer实现的.如何使用,网上帖子多得是,这里记录一下我被坑的地方. 1.T ...
- ehlib 用法记录
点列头排序 1.add ehlibado.pas to project. 2.grideh>ColumnDefValues>Title>TitleButton=true; 3.g ...
最新文章
- 极限中0除以常数_高中物理必知的50个关键常数, 每个都是得分点!
- 转巧用notepad++ 批量转换ansi 和 utf8
- 高性能mysql的事物隔离级别
- SpringBoot Mybatis EnumTypeHandler自定义统一处理器
- bilibili里的硬币有什么用 硬币的作用详细介绍
- programfilesx86可以移动吗_配置全套的移动洗砂机多少钱?时产200吨可以处理吗?...
- 并不对劲的[USACO07NOV,洛谷p2886]Cow Relays
- 【Java】@ResponseBody 返回JsonObject
- python是哪个专业学的-专业python培训学校
- 2020MySQL安装(MSI超级简单一键next)
- linux 脚本监控程序,用shell脚本实现监控程序自动重启
- Android 百度地图SDK与导航SDK相关问题
- 商业银行vh是哪个银行的简称_各个银行缩写是什么
- Java面试题:MySql高频面试题
- 微信带参二维码数据解析
- chfs http 文件共享服务
- Eclipse Xtend - 疯狂的Java10
- c语言10B,C++程序语言10B_C.ppt
- 为什么学编程?如何学习编程?
- 医用交直流电源的全球与中国市场2022-2028年:技术、参与者、趋势、市场规模及占有率研究报告