请问各位如何用Toolbar按钮菜单?

Question

呵呵，好机会，我来告诉你：
首先在添加一个按钮时选择它的类型（Style）=5 （Dorpdowm），然后在对话框的下半部分里面有一个“插入按钮菜单”的按钮，点击它就可以添加按钮菜单了。

Answer 1

那你看看，ToolBar有一个ButtonMenuClick事件。你每次单击下拉按钮里面的菜单就会触发这个事件。

Answer 2

ToolBar有一个ButtonMenuClick事件
然后用select case 
end select 就可以了

Answer 3

你运气真好，我正在做这个。看，就这么简单
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
   Case "love"
    frmFilmTable.Show vbModal
   Case "exit"
    Unload Me
 End Select
End Sub

Answer 4

补充一点。
应注先意设置好button的关键字（button.key)属性。
再 同 up

Answer 5

我再补充一点，如果是响应下拉菜单里的命令应该如下：
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
   Select Case ButtonMenu.Index
   Case 1
      MsgBox "Press the button."
   Case 2
      MsgBox "Offer some option"
   End Select
End Sub