请教大家调用toolbar的用法

Question

我的toolbar上有5个button,如何在别的事件里调用第二个button的click事件？请大家帮帮忙，告诉我啊

Answer 1

将button的click事件写到一个sub中，用时调用sub即可

Answer 2

Private Sub Command1_Click()
    调用
    Call Toolbar1_ButtonClick(Toolbar1.Buttons(1))
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            MsgBox Button.Index
        Case 2
        
        Case 3
        
    End Select
End Sub

Answer 3

调用第二个button的click事件Call Toolbar1_ButtonClick(Toolbar1.Buttons(2))

Answer 4

设置toolbar上有5个button的关键字
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
      Select Case Button.Key
           Case Is = "New"  '关键字'
             .....
             .....
           Case Is = "Add"  '关键字'
            ......
            ..... 
      End Select