*****请问一下，在一个过程中如何调用toolbar的单击事件？*****

[13583278353]

sub command1_click()
***** '这个地方如何写才能发生单击工具栏的事件？
end sub

[射天狼]

Toolbar1_ButtonClick Toolbar1.Buttons(2) '2为你调用工具条上的第几个按钮.

[Apple200228]

代码如下:
Option Explicit

'Toolbar1.Buttons(1).key="A1"

Private Sub Command1_Click()
Dim iButton As MSComctlLib.Button
Set iButton = Toolbar1.Buttons(1)

Call Toolbar1_ButtonClick(iButton)
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "A1"
MsgBox "Hello"
End Select
End Sub

[射天狼]

Dim iButton As MSComctlLib.Button
Set iButton = Toolbar1.Buttons(1)

Call Toolbar1_ButtonClick(iButton)

====================================
一句代码能解决的问题,非得写三行,脱裤子放屁~~