VB6.0 RibbonX 控件回调问题 刷新用户界面

thtfzhaobo

vb和VBA并不同，vb中
字符换行的问题，大图标都是自己换行呀！

thtfzhaobo

7176386 发表于 2023-3-2 09:58
请问各位大佬，VB6.0 在封装RibbonX 时，请问如何回调上述：returnedVal 返回控件？

vb和vba用法不同，你前面所写都是在VBA中，vB应如下
Function GetVisible(control As IRibbonControl) As Boolean
  On Error Resume Next
  If control.id = "User_Rib_Group_浏览1" Then
     GetVisible = False

  End If
End Function

7176386

thtfzhaobo 发表于 2023-3-2 16:41
vb和vba用法不同，你前面所写都是在VBA中，vB应如下
Function GetVisible(control As IRibbonControl) A ...

老哥，不是这个问题，不知道是不是VB不支持还是什么原因。

thtfzhaobo

7176386 发表于 2023-3-2 18:26
老哥，不是这个问题，不知道是不是VB不支持还是什么原因。

看了，都执行了，txtClick执行无误，最后通过rib.Invalidate，和gettext设置了默认值，没问题呀

7176386

thtfzhaobo 发表于 2023-3-2 23:04
看了，都执行了，txtClick执行无误，最后通过rib.Invalidate，和gettext设置了默认值，没问题呀

https://club.excelhome.net/thread-1655318-1-1.html

大佬可以帮我看看吗，我更新了一下附件。

WANT-T

7176386 发表于 2023-3-2 18:26
老哥，不是这个问题，不知道是不是VB不支持还是什么原因。

不是没有反应，是你在gettext里返回了空，getlookat里的returnedval默认为0，你改成了1，都有反应！

thtfzhaobo

7176386 发表于 2023-3-2 23:33
https://club.excelhome.net/thread-1655318-1-1.html

大佬可以帮我看看吗，我更新了一下附件。

确实没时间帮你，你每次说的都不是一个控件，你先了解控件吧

7176386

WANT-T 发表于 2023-3-3 09:55
不是没有反应，是你在gettext里返回了空，getlookat里的returnedval默认为0，你改成了1，都有反应！

感谢大佬帮助，学习了。！

7176386

thtfzhaobo 发表于 2023-3-3 10:29
确实没时间帮你，你每次说的都不是一个控件，你先了解控件吧

网友提供了说明，搞定了，谢谢。

smsn

https://club.excelhome.net/thread-1655755-1-1.html 一个ribbon制作工具