以文本方式查看主题

-  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=116752)
--  作者：ap9709130
--  发布时间：2018/3/30 14:50:00
--  如何用代码动态增加菜单的功能区和功能组?
如题!

比如我在想一个名称为:aa 的功能区, 在aa 下面增一个 bb 的功能组? 多谢!
--  作者：有点甜
--  发布时间：2018/3/30 15:01:00
--  
Dim ntab = New RibbonMenu.Tab("test1")
ntab.text = "123"
RibbonTabs.Add(ntab)
Dim ngroup = New RibbonMenu.Group("test2")
ngroup.text = "abc"
ntab.groups.Add(ngroup)
--  作者：ap9709130
--  发布时间：2018/3/30 15:12:00
--  
老师

这个我搞懂了,但是想一打开项目就是动态生成菜单,要写在哪个事件中? 
--  作者：有点甜
--  发布时间：2018/3/30 15:13:00
--  
AfterOpenProject事件。
--  作者：ap9709130
--  发布时间：2018/3/30 15:57:00
--  
Dim ntab = New RibbonMenu.Tab("test1")
ntab.text = "123"
RibbonTabs.Add(ntab)
Dim ngroup = New RibbonMenu.Group("test2")
ngroup.text = "abc"
ntab.groups.Add(ngroup)

会报错. 说Groups 不是ntab 成员.
--  作者：ap9709130
--  发布时间：2018/3/30 16:00:00
--  
我写错了.不好意思.

Dim ntab = New RibbonMenu.Tab("test1")
ntab.text = "123"
RibbonTabs.Add(ntab)
Dim ngroup = New RibbonMenu.Group("test2")
ngroup.text = "abc"
ntab.groups.Add(ngroup)
Dim btn = new RibbonMenu.Button("tt")
 btn.Text = "TT"
ngroup.add(btn)

为什么我加这个控件会报错,要怎么写?
--  作者：lwjiee
--  发布时间：2018/3/30 16:04:00
--  
Dim ntab = New RibbonMenu.Tab("test1")
ntab.text = "123"
RibbonTabs.Add(ntab)
Dim ngroup = New RibbonMenu.Group("test2")
ngroup.text = "abc"
ntab.groups.Add(ngroup)
Dim btn = new RibbonMenu.Button("tt")
 btn.Text = "TT"
ngroup.items.add(btn)