如何调用toolbar上按钮的click事件？

Question

Private Sub tbarWnd_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "FirstButton"
                '第一个Button要做的东东
Case “SecondeButton”
‘第二个Button要做的东东
...................
End Select
End Sub

Answer 1

Call tbToolBar_ButtonClick(tbToolBar.Buttons("find"))
"find" 是 Button.Key

Answer 2

过程中调用某一个菜单的单击命令即可如filemenu_click写在过程里

Answer 3

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 select case  button.key
case
  'add to do
end select End Sub

Answer 4

他的意思是怎样在别的地方调用Toolbar1_ButtonClick！！！！

Answer 5

To ganzhiruogy(方竹)　说的很对，他已经解决了！
唉！其实我差点儿猜对了，忘了加call

Answer 6

呵呵，sorry,理解问题错误，ganzhiruogy(方竹)的答案完全正确，加30分

Answer 7

to powpow(飞机)　:
加不加Call根本没关系，Call只不过是VB6为了兼容以前的老版本保留下来的关键字而已，不用加
Call一样可以使用，tbToolBarButtonClick tbToolBarButtons（"find") 也是可以的