以文本方式查看主题

-  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=30068)
--  作者：lipiti
--  发布时间：2013/3/20 13:45:00
--  如何自动获取菜单名称和标题？
如何自动获取菜单名称和标题？

For Each rb As Relation In Relations   
    For Each dc As Col In Tables( rb.Name).Cols
        Dim dr As DataRow = DataTables("表列名称" ).Find( "表名称 = \'" & rb. Name & "\' And 列名称 = \'" & dc.Name & "\'")
        If dr Is Nothing Then
            dr = DataTables ("表列名称"). AddNew ()
            dr("表名称" ) = dt. Name
            dr("列名称" ) = dc. Name
        End If
    Next   
Next

以上代码是可以自动获取数据表的表名称和列名称，能否参考以上代码现实自动获取菜单名称和标题？



图片点击可在新窗口打开查看此主题相关图片如下：自动获取菜单名称.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2013-3-20 13:47:32编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/3/20 14:29:00
--  

这么改一下算了：

 

For Each rt As RibbonMenu.Tab In RibbonTabs
    For Each rg As RibbonMenu.Group In rt.Groups
        For Each rb As Object In rg.Items
            Dim dr As DataRow = DataTables("菜单表").AddNew()
            dr("RibbonTabs名称") = rt.Name
            dr("RibbonTabs标题") =rt.Text
            dr("Groups名称") =rg.Name
            dr("Groups标题") =rg.Text
            dr("Items名称") =rb.Name
            \'dr("Items标题") =rb.Text
        Next
    Next
Next

 

因为有的组件没有text属性的
--  作者：lipiti
--  发布时间：2013/3/20 14:50:00
--  
万分感谢【帅哥，在线噢！狐狸爸爸】、【muhua】两位老大帮忙写代码，已经完全达到我们预期的功能了。