以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]如何获取QAT.Items全部子菜单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190517)

--  作者：新福星 --  发布时间：2024/2/19 12:34:00 --  [求助]如何获取QAT.Items全部子菜单 如何获取QAT.Items全部子菜单

--  作者：有点蓝 --  发布时间：2024/2/19 13:30:00 --   http://www.foxtable.com/webhelp/topics/1132.htm For Each btn As RibbonMenu.Button In QAT.Items     Output.Show(btn.name) Next

--  作者：新福星 --  发布时间：2024/2/20 5:53:00 --   用户自编的菜单还没有展开，能获取到么？

--  作者：有点蓝 --  发布时间：2024/2/20 8:46:00 --   For Each btn As RibbonMenu.RibbonItem In QAT.Items     If TypeOf btn Is RibbonMenu.Button Then         Output.Show(btn.name)     Else         Dim it As RibbonMenu.MenuButton = btn         For Each btn2 As RibbonMenu.RibbonItem In it.Items             If TypeOf btn2 Is RibbonMenu.Button Then                 Output.Show(btn2.name)             Else                 Dim it2 As RibbonMenu.MenuButton = btn2                 For Each btn3 As RibbonMenu.RibbonItem In it.Items                     Output.Show(btn3.name)                 Next              End If         Next      End If Next