zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    WCF技术剖析之二十六:如何导出WCF服务的元数据(Metadata)[实现篇]
    事件(Event),绝大多数内存泄漏(Memory Leak)的元凶[上篇]
    谈谈关于MVP模式中VP交互问题
    如何通过VPC在本机搭建局域网
    谈谈分布式事务之三: System.Transactions事务详解[下篇]
    WCF版的PetShop之二:模块中的层次划分[提供源代码下载]
    实践重于理论——创建一个监控程序探测WCF的并发处理机制
    WCF技术剖析之二十五: 元数据(Metadata)架构体系全景展现[WS标准篇]
    WCF技术剖析之三十一: WCF事务编程[中篇]
    微软将结束对Windows 2000、XP和Vista部份版本的技术支持
  • 原文地址:https://www.cnblogs.com/czhelp/p/5005076.html
Copyright © 2011-2022 走看看