紧急跪求~~ToolBar工具栏的使用

[sungfeng]

ToolBar工具栏 在一个按钮的样式里设置为5-tbrdropdown并在下方设置增加按钮菜单

在运行后 工具栏的按钮旁边出现三角行下拉菜单

请问怎么对下拉菜单 编写事件代码

[sungfeng]

谢谢这位大哥
但是我试了一下 如果里面有两个这样属性的按钮
不能识别出是哪个下的
我用了
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox ButtonMenu.index
End Sub
点了第1个工具栏下的第1个按钮 弹出了 1 这是没什么问题
可是 点了第2个工具栏下的第1个按钮 还是弹出了 1
那么请问怎么用index判断是按钮呢?

[hpygzhx520]

不可能吧
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox "工具条1:" & ButtonMenu.index
End Sub

Private Sub Toolbar2_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox "工具条2:" & ButtonMenu.index
End Sub

[hpygzhx520]

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

End Sub

[sungfeng]

hpygzhx520
您好
你理解错了我的意思
我不是说 Toolbar2、 Toolbar1
我是说同在 Toolbar1里面有两个按钮 都有子菜单的情况下

[xeonwei]

Private Sub Form_Load()
Dim b As Button
With Toolbar1
Set b = .Buttons.Add(1, "k1", "k1")
b.Style = tbrDropdown
b.ButtonMenus.Add 1, "m1", "m1"
b.ButtonMenus.Add 2, "m2", "m2"

Set b = .Buttons.Add(2, "k2", "k2")
b.Style = tbrDropdown
b.ButtonMenus.Add 1, "m3", "m3"
b.ButtonMenus.Add 2, "m4", "m4"
End With
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
MsgBox ButtonMenu.Key
End Sub

给分

[gxqianqin]

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Add" 'Add為按鈕的關鍵字
mnuAdd_Click '引發mnuAdd_Click事件
Case "Edit"
mnuEdit_Click
Case "Select"
mnuSelect_Click
Case "Print"
mnuPrint_Click
Case "Export"
mnuExport_Click
Case "Exit"
mnuExit_Click
Case "Refresh"
mnuRefresh_Click
End Select
End Sub

[gxqianqin]

up

[sungfeng]

谢谢 各位兄弟~~~~~~

[gxqianqin]

隻在命名不相同就可以了,用Index不好用
直接判斷它的名字就可以了

[hpygzhx520]

添加菜单的时候设置关键字，然后用ButtonMenu.Key