Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

有偿求助:ribbon功能区如何用本地图片getimage自定义图标和getEnabled按照用户设置菜单权

高山  发表于:2020-06-24 13:23:08  
复制

积分不足,可支付宝或微信红包,200聊表感谢。


想设置一个功能区,然后用自己本地文件夹中图标,同时可以根据登陆用户所属的用户组权限来控制菜单的显示与可用。

搞了很多次没有成功,头很疼,问题如下:

1.XML自定义功能区,用getimage设置动态的图标(不想用微软自带的)一直不成功,提示不能运行回调函数getimages。详见附件求助:ribbon功能区自定义本地图片和菜单权限控制

xml设置如下

--------------------------------------------------------------------------------------------------

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon startFromScratch="true">
    <tabs>      
<tab id="新功能区" label="新功能区" visible="true">
  <group id="数据维护" label="数据维护">        

         <button id="product" label="产品主数据" getImage="getImages" tag="ga.ico"  onAction="打开窗体1"/>
         <button id="sales" label="销售主数据" imageMso="HappyFace" onAction="打开窗体1"/>

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

--------------------------------------------------------------------------------------------------


getimages回调函数

--------------------------------------------------------------------------------------------------

Public Sub getImages(control As IRibbonControl, ByRef image)

   

    Set image = LoadPicture(getAppPath & control.Tag)      '这里如果改直接引用本地地址应该也可以
    

End Sub


Public Function getAppPath() As String

    getAppPath = Left(CurrentDb.Name, Len(CurrentDb.Name) _
    - Len(Dir(CurrentDb.Name)))
End Function
--------------------------------------------------------------------------------------------------


2.想通过getEnabled="myGetEnabled"来设置根据不同用户组分配不同的菜单可用权限,也没成功。

myGetEnabled的回调函数写的一直出问题,就不贴了。


 

Top
金宇 发表于:2020-06-30 14:51:46

你的回调函数写错地方了,不是写在按钮上,是在xmlns="http://schemas.microsoft.com/office/2009/07/customui" 这句后面增加 loadImage="自定义的回调函数" ,我拿你的文件改了一下,你可以参考。

点击下载此附件



总记录:1篇  页次:1/1 9 1 :