【少同爱分享】继VB6.0 COM加载项制作使用一年技术总结贴

带劲儿

首先先看这样一个效果图

带劲儿

再来看这样一个功能区代码是如何书写xml文件，我提供代码你需要做的仅仅是照葫芦画瓢就可以啦

带劲儿

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="rxtabCustom"
        label="功能区新花样"
        insertAfterMso="TabHome">               
<group id="customGroup00" getLabel="rxAuditMisc_getLabel">
          <dropDown id="Classcify" label="dropDowns:">
            <item id="FdD1Item1" label="周一吃虾" />
            <item id="FdD1Item2" label="周二吃面" />
            <item id="FdD1Item3" label="周三鱼丸" />
            <item id="FdD1Item4" label="周四煎饼" />
            <item id="FdD1Item5" label="周五大餐" />
          </dropDown>
    <button id="FButton1" label="确认录入" imageMso="ExportToVCardFile" size="large" />                 
        </group>                        
      </tab>
    </tabs>
  </ribbon>
</customUI>
在vba中的代码回调如下，声明一个全局变量即可：

1. Public RibbonUI As IRibbonUI
   
2. Dim MyDinner As String
   
3. Sub rxAuditMisc_getLabel(ByRef control As IRibbonControl, ByRef ReturnValue As Variant)
   
4.     ReturnValue = "Hello： 你好　" & Format(Date, "AAAA yyyy-mm-dd")
   
5. End Sub
   
6. Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
   
7.     Set RibbonUI = ribbon
   
8. End Sub
   
9. Sub 录入dropDown(control As IRibbonControl, id As String, index As Integer)
   
10.     Select Case index
    
11.         Case 0
    
12.             MyDinner = "周一吃虾"
    
13.         Case 1
    
14.             MyDinner = "周二吃面"
    
15.         Case 2
    
16.             MyDinner = "周三鱼丸"
    
17.         Case 3
    
18.             MyDinner = "周四煎饼"
    
19.         Case 4
    
20.             MyDinner = "周五大餐"
    
21.     End Select
    
22. End Sub
    
23. 
    
24. Sub 确认录入(control As IRibbonControl)
    
25.     If MyDinner = "" Then MsgBox "请选择数据": Exit Sub
    
26.     MsgBox MyDinner
    
27. End Sub

复制代码

带劲儿

玩点新花样.zip (13.18 KB, 下载次数: 108)

2016-5-16 22:28 上传

点击文件名下载附件

来个完整示例附件

linyh1742595842

带劲儿 发表于 2016-5-16 22:28
来个完整示例附件

不知道怎么做的

lxbzzhn

不错,不错,受教了

wenz

带劲儿 发表于 2016-5-16 22:23
...

XML中是不是少了 onAction="确认录入"