以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树图标如何直接获得菜单项目的图标?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54442)

--  作者:coch2004
--  发布时间:2014/7/28 16:43:00
--  [求助]目录树图标如何直接获得菜单项目的图标?

目录树图标如何直接获得菜单项目的图标?

 

nd=tr.Nodes.add(tt.Name,tt.name,cc.LargeImage)


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140728155823.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2014/7/28 16:46:00
--  

 保存成路径,然后引用路径。

 

 tt.LargeImage.save("d:\\temp.jpg")

 


--  作者:coch2004
--  发布时间:2014/7/28 17:31:00
--  

有点甜,请帮忙看一下,出现以下错误:

 


图片点击可在新窗口打开查看此主题相关图片如下:2014-07-28_172633.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140728172736.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/7/28 17:33:00
--  
可能根本没大图标
SmallImage 看看

--  作者:有点甜
--  发布时间:2014/7/28 17:34:00
--  
For Each t As RibbonMenu.RibbonItem  In ConfigBar.Items
    t.SmallImage.save("d:\\test.jpg")
Next

--  作者:coch2004
--  发布时间:2014/7/28 17:43:00
--  

我知道是什么原因了,因为有的菜单我加了图标,有的没有,那么得在前面加上一个判断有没有图标的问题.

如何判断有没有图标?

if tt.LargeImage=true ? ......


--  作者:Bin
--  发布时间:2014/7/28 17:43:00
--  
if tt.LargeImage isnot nothing then
--  作者:有点甜
--  发布时间:2014/7/28 17:45: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