Question

VB6中toolbar控件的“按钮菜单”如何非点击调用？

将Style属性设置为5 tbdropdown之后，在所设按钮旁边出现了一个下拉菜单的箭头，现在已知通过Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)来定义菜单点选，但这只是点这个箭头之后才触发此项。而我现在要实现的是点别的某个按钮，来调出这个菜单（也就是点别的东西相当于点了一下下拉菜单的箭头），试过 CALL Toolbar1_ButtonMenuClick（），但括号里不知道要填什么参数，好像填什么都说“类型不匹配”，请高手帮助，谢谢！！！

Answer 1

这个好像实现不了，vb只提供一个下拉菜单触发后的事件Toolbar1_ButtonDropDown，建议变通实现一下：用vb菜单（例：名字为 mnumain），button的style仍然是 tbdropdown，但不加ButtonMenu，然后利用ButtonDropDown事件：
'通过Toolbar调用
Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
If Button = Toolbar1.Buttons(1) Then
PopupMenu mnumain
End If
End Sub
'通过按钮调用
Private Sub Command1_Click()
PopupMenu mnumain
End Sub