以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问:配置栏中第一个按键的图标如何取得??  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56389)

--  作者:tennis
--  发布时间:2014/9/4 11:43:00
--  请问:配置栏中第一个按键的图标如何取得??
如题
--  作者:有点甜
--  发布时间:2014/9/4 11:49:00
--  

 参考

 

For Each t As RibbonMenu.RibbonItem  In ConfigBar.Items
    If t.LargeImage IsNot Nothing Then
        t.LargeImage.save("d:\\test.jpg")
    Else If t.SmallImage IsNot Nothing Then
        t.SmallImage.save("d:\\test.jpg")
    Else
        \'dddd
    End If
Next 


--  作者:tennis
--  发布时间:2014/9/4 14:44:00
--  

3Q!! 解决了!!

 

 

我是要于配置栏上用一图标作为窗口的开关

If Forms("菜单窗口").OPENed Then
    Forms("菜单窗口").close
    e.Button.SmallImage = GetImage("展开D.gif") \'展开图标
    e.Button.ToolTip = "click 打开菜单区"
Else
    Forms("菜单窗口").open
    e.Button.SmallImage = GetImage("收起U.gif")
    e.Button.ToolTip = "click 关闭菜单区"
End If



 


此主题相关图片如下:收起u.gif
按此在新窗口浏览图片


 


此主题相关图片如下:展开d.gif
按此在新窗口浏览图片