Question

EXCEL Ribbon界面中有个getLabel在EXCEL中可以正常调用，封装到VB中无法调用？是不是写法不一样？

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
End Sub

Sub rxshared_click(control As IRibbonControl)
grxIRibbonUI.Invalidate
End Sub

Sub rxshared_getLabel(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "rxbtn"
returnedVal = "功能区无效: " & glngCount1 & "次."
glngCount1 = glngCount1 + 1
Case "rxbtn2″"
returnedVal = "功能区无效: " & glngCount2 & "次."
glngCount2 = glngCount2 + 1
End Select
End Sub

Answer 1

报什么错，缺少引用吗？

追问

只是写法不一样，在VB中没有回调的概念，直接用Function就可以了。