vb Toolbar工具栏添加菜单

Private Sub Command1_Click()
'引用 Microsoft Windows Comman Controls 6.0(SP6)）
'添加菜单
'http://www./thread-70601-1-1.html
Dim i As Integer
   Dim btn As Button
  
   ' 添加五个 Button 对象到 Toolbar 控件。
   For i = 1 To 5
      Set btn = Toolbar1.Buttons.Add(Caption:=i, Style:=tbrDropdown)
      ' 添加两个 ButtonMenu 对象到每一个Button。
         btn.ButtonMenus.Add Text:="Help"
         btn.ButtonMenus.Add Text:="Options"
         btn.ButtonMenus.Add Text:="xdgg"
         btn.ButtonMenus.Add
         
   Next i
End Sub

'也可以这样添加菜单
'
'还可以直接Toolbar1.Buttons(1).ButtonMenus.Add Text:="Help"
 '---------在属性中直接添加菜单----------------

设置：

http://zhidao.baidu.com/question/211109242.html
右键单击toolbar控件， 属性 --> buttons  --> 选择你要做按钮菜单的按钮 -->吧style属性设置为5tbdropdown 【选择正确的话，点击“应用”后，可以在你的界面中看到你选的按钮右侧多了个下拉小箭头】，然后在下边buttonmenus栏里边编辑你要的按钮菜单即可。
应用：
菜单响应 ButtonMenuClick 事件，菜单可以用事件返回的Index或Key等区分是哪个菜单提交的事件。

'-------------------------------------

Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
'菜单下拉事件

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
'菜单点击事件
Debug.Print ButtonMenu.Parent   '菜单点击的是那个工具栏按钮
Debug.Print ButtonMenu.Index    '点击的是那个菜单Index
End Sub

 

'---------------设置工具条分割线-------------------

Toolbar的按钮样式为  tbrSaparator