工具栏中按钮菜单的编码

Question

在工具栏中的按钮样式为5-DropDown时，可添加按钮菜单，如何对各按钮菜单编码，在ButtonClick事件里如何判断哪个按钮菜单被选中，多谢帮忙

Answer 1

对各个按扭设置不同的关键字，如按扭1为：a   按扭2为：b
则双击工具栏写入以下代码：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
  Case "a"
     ……     '按扭1要执行的代码
  Case "b"
    ……      '按扭要执行的代码
end Select
end Sub

Answer 2

添加ButtonMenuClick事件
Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
     
     '添加你的代码
End Sub

Answer 3

就像VB IDE中标准工具栏中的"添加窗体"这种按钮格式，右边有箭头，带下拉菜单的，有用过吗？

Answer 4

下拉的时候，你会设置其按纽菜单下拉的关键字，比如NewContactPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
   Select Case ButtonMenu.Key
      Case "NewContact"
         msgbox "按了联络人项目"
     
      
   End Select
End Sub