以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何把标准按钮添加到菜单按钮中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57044)
--  作者：万通
--  发布时间：2014/9/17 11:16:00
--  如何把标准按钮添加到菜单按钮中？
用代码：如何把标准按钮添加到菜单按钮中？

1、新建一个菜单按钮
2、新建3个标准按钮
3、把3个标准按钮添加到刚新建的那个菜单钮按中
4、把这个菜单按钮添加到配置栏中

第3步如何写？
--  作者：有点甜
--  发布时间：2014/9/17 11:20:00
--  
 呃，直接菜单按钮.Items.Add(xxx)
--  作者：狐狸爸爸
--  发布时间：2014/9/17 11:22:00
--  

例如在杂项功能区的工具菜单下面增加一个按钮：

 

Dim mbn As RibbonMenu.MenuButton = RibbonTabs("Other").Groups("Tools").Items("Tools")
Dim btn  As New RibbonMenu.Button("Foxtable功能很好") \'定义一个标准按钮
btn.Text= "技术支持也及时"  \'设置按钮的标题
mbn.Items.Add(btn)  \'将按钮添加到菜单中

[此贴子已经被作者于2014-9-17 11:30:54编辑过]
--  作者：万通
--  发布时间：2014/9/17 11:33:00
--  

Dim mnbtn As RibbonMenu.MenuButton

Dim btn As RibbonMenu.Button

 

mnbtn = new RibbonMenu.MenuButton("mnbtn1")

If ConfigBar.items.Contains("mnbtn1") = False Then

    ConfigBar.items.add(mnbtn)

 

    btn = new RibbonMenu.Button("btn1")

    If ConfigBar.items.Contains("btn1") = False Then

       ConfigBar.items("mnbtn1").items.add("btn1")    \'就是这句不知道如何添加

    End If

End If
--  作者：Bin
--  发布时间：2014/9/17 11:34:00
--  
 ConfigBar.items("mnbtn1").items.add(btn)
--  作者：万通
--  发布时间：2014/9/17 11:41:00
--  
呵呵，谢谢，原来没注意，自己把那个变量名写错了，导致一直出错，却一直未找出来。