如何用语句让toolbar的按钮按下并执行它里面的代码

Question

Toolbar.Buttons("Save").Value = tbrPressed不能执行？

Answer 1

让他按下？
什么意思？你如果要仔细他里面的语句最简单了把他的click的sub名调用一下就可以了

Answer 2

Private Sub Command1_Click()
    Call Toolbar1_ButtonClick(Toolbar1.Buttons("save"))
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "save"
        MsgBox "save"
    Case "open"
        MsgBox "open"
    End Select
End Sub

Answer 3

这个方法我也试过，我把"Save"的大小写没写对，写成了Call Toolbar1_ButtonClick(Toolbar1.Buttons("SAVE"))就报"未发现元素"，写对了就通过了。