以文本方式查看主题

-  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=30626)
--  作者：jijianjsj
--  发布时间：2013/4/1 10:47:00
--  [讨论]帮助文档“实战演练”错误

帮助文档1501页：
Dim ng As New RibbonMenu.Group("Filter") \'定义新的功能组
ng.Text = "筛选" \'设置功能组标题
RibbonTabs("实战演练").Groups.Add(ng) \'将功能组加入实战演练功能区
With RibbonTabs("Common").Groups("SortAndFilter")
    ng.Items.Add(.Items("Filter")) \'添加筛选按钮
    ng.Items.Add(.Items("SelectFilter")) \'添加选择按钮
    ng.Items.Add(.Items("Expression")) \'添加编辑按钮
    ng.Items.Add(.Items("UnFilter")) \'添加撤销按钮
    ng.Items.Add(.Items("Separator")) \'添加分隔条
    ng.Items.Add(.Items("Toggle")) \'添加切换按钮
End With

 


执行后提示不存在”Expression"，请更改。

另外这段在命令窗口连续运行可增加多个功能组，ng.Name提示只读，有其他方法思路对同一个功能组修改吗？

 
--  作者：狐狸爸爸
--  发布时间：2013/4/1 10:57:00
--  

1、下面的Filter就是名称，定义的时候指定名称：

Dim ng As New RibbonMenu.Group("Filter") \'定义新的功能组

 

2、提示不存在很正常，因为可能这个功能组中不存在名为Expression的按钮了，这个只是提供一个例子，并非任何时候都能正常执行，需要根据具体情况调整。
--  作者：jijianjsj
--  发布时间：2013/4/1 11:04:00
--  
命令窗口连续点击运行这段代码都会增加这个功能组，如果点击3下，就会增加3个一模一样的功能组啊？！
--  作者：狐狸爸爸
--  发布时间：2013/4/1 11:06:00
--  

正常的