细品RibbonX(1-59) (转)

OKJSJSF

jiulongpo 发表于 2012-7-27 14:38
转自: http://www.excelperfect.com/index.php/2009/04/28/ribbonxstudy6/
细品RibbonX(6)：初识RibbonX
...

莫非“加载项”选项卡只能添加自定义菜单栏与工具栏？大家平时都把自定义的功能都设成“新的选项卡”中而没用过加载项选项卡添加新组？

HUA79100101

细品RibbonX(1-59) 学习自定义标题栏

语虚何以言知

jiulongpo 发表于 2012-7-27 19:14
转自: http://www.excelperfect.com/index.php/2009/11/24/ribbonxstudy37/
细品RibbonX(37)：screentip属 ...

现在遇到需要换行的情况,请问是哪五个字符输出硬回车啊

aimarlab

已经下好，回头仔细学习，感谢楼主。

mfch99

下载下来慢慢看，但是密码是啥呀？

hbtxy

请教楼主，在editbox输入密码时，如何显示为“*”

海特别远

你好 jiulongpo老师 看了您发的关于getvisible回调的内容 本人初学了一下 遇到些问题 还望您能答疑，感激不尽

1. Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
   
2.     Set rxIRibbonUI = ribbon
   
3.     bBox1_Visible = True
   
4. End Sub
   
5. Sub IsVisible(control As IRibbonControl, ByRef returnedVal)
   
6.     returnedVal = bBox1_Visible
   
7. End Sub
   
8. Sub Shared_pressed(control As IRibbonControl, ByRef returnedVal)
   
9.     returnedVal = bBox1_Visible
   
10. End Sub
    
11. Sub Toggle_Show_Hide(control As IRibbonControl, pressed As Boolean)
    
12.     bBox1_Visible = pressed
    
13.     rxIRibbonUI.Invalidate
    
14. End Sub

复制代码

        xml代码如下

1. <?xml version="1.0"?>
   
2. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   
3. <ribbon startFromScratch="false">
   
4.   <tabs>
   
5.    <tab id="mytab1" label="3513"  insertAfterMso="tabHelp">
   
6.     <group id="group7" label="快捷操作">
   
7.       <button id="button7-1" label="机台号" imageMso="TextEffectTransformGallery"   onAction="Generate_Machine" size="large" getVisible="IsVisible" />
   
8.     </group>
   
9.     <group id="group8" label="Help">
   
10.       <button id="button8-1" label="显示/隐藏"   onAction="Toggle_Show_Hide" getPressed="Shared_pressed" size="large" />
    
11.     </group>
    
12.   </tab>
    
13.   </tabs>
    
14. </ribbon>
    
15. </customUI>

复制代码

     问题1.如果xml代码内加上getPressed="Shared_pressed" 这么一句 那么加载项就不会显示 去掉即可显示  问题2.去掉getPressed="Shared_pressed" 之后 运行button8-1 就不会达到预期效果 显示与隐藏    还望您能抽空帮忙看下 ，再次感激

海特别远

jiulongpo老师您好

当rxIRibbonUI变量失效后该怎么办

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set rxIRibbonUI = ribbon
    bBox1_Visible = True
End Sub