ToolBar的ButtonClick事件的调用？？？？

Question

在别的控件的事件过程中如何调用？

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Toolbar1_ButtonClick Toolbar1.Buttons(2) '2为你点击按钮的索引
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    MsgBox Button.Key
End Sub

Answer 2

'像调用普通过程一样.Private Sub Command1_Click()
    Toolbar1_ButtonClick Toolbar1.Buttons(2) '2为你点击按钮的索引
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    MsgBox Button.Key
End Sub