Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 114|回复: 1

[求助] 在vb6中动态加载自定义功能区的问题

[复制链接]
发表于 2019-7-17 19:01 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
<?xml version="1.0" encoding="gbk" ?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="tabB" label="测试选项卡">
           <group id="group1" label="组1" getVisible="group1_getVisible">
          '………………
          </group>

           <group id="group2" label="组2" getVisible="group2_getVisible">

          '………………

          </group>

         '…………………………一共有多个组…………省略…………


      </tab>
   </tabs>
  </ribbon>
</customUI>

'按条件显示 组1
Sub group1_getVisible(control As IRibbonControl, ByRef returnedVal)
’1、我先按这个写法,在vba中没有问题,根据条件不同来显示/隐藏该组,但是在 vb6 中行不通
          if  …………then
               returnedVal = True
          else
               returnedVal = false
           end if

’2、后来改为下面的写法,测试强制显示,也是不行。不显示该组
但其它没有 getVisible 方法的组都可以正常显示


               returnedVal = true


3、所以预计程序没有进入到这里,加入一个公共变量来测试,发现真的没有进入这里。
            sr="过来了"
End Sub


'按条件显示 组2


Sub group2_getVisible(control As IRibbonControl, ByRef returnedVal)

  '问题同上   Sub group1_getVisible

End Sub




所以,现在问题是如何调用这个 (注:其它没有设置的组是可以显示的,而且vba中是可以触发的)
<group id="group1" label="组1"
getVisible="group1_getVisible"
>  中的"group1_getVisible"过程
特此求问  如何处理

 楼主| 发表于 2019-7-17 19:05 | 显示全部楼层
啰嗦了半天,问题是  getVisible  未能触发,如何触发它。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2019-8-19 01:14 , Processed in 0.046800 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表