主题：如何把标准按钮添加到菜单按钮中？

 呃，直接菜单按钮.Items.Add(xxx)

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

 

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

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

 ConfigBar.items("mnbtn1").items.add(btn)

呵呵，谢谢，原来没注意，自己把那个变量名写错了，导致一直出错，却一直未找出来。