在VB中怎样为工具栏上的按钮指定一个快捷菜单

怎样实现 单击了工具栏按钮右侧的小箭头后，出现下拉菜单，应该怎样设置属性，怎样编写过程？

1、在工具栏属性页的“按钮”页中，找到你要添加下拉菜单的按钮，例如是第一个按钮，属性页下面有“添加按钮菜单”，此时“索引”文本框可用，其值自动变为“1”。
2、添加代码方法只是把工具栏按钮单击事件做一下修改，将单击事件中的Button改为ButtonMenu
这是工具栏按钮单击事件：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

（1）使用“索引”
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
Case 1
……
Case 2
……
End Select
End Sub
（2）使用关键字，在属性页中，按钮菜单一栏也有“关键字”，设置相应唯一的关键字，则按以下代码
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case 1
……
Case 2
……
End Select
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/v7qf8vssmp7qs87m8p.html