奇怪用下面的怎么不行呀？

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Caption
Case "Open": MsgBox "Open"
Case "Save": MsgBox "Save"
Case "Charts": MsgBox "Charts"
End Select
End Sub

Private Sub UserForm_Initialize()
With Toolbar1
.AllowCustomize = False '双击不显
.ImageList = ImageList1 '连接图标
.TextAlignment = tbrTextAlignRight '图标显示方式
End With
With Toolbar1.Buttons
.Add(1, , "").Style = tbrPlaceholder
.Add(2, , , , 1).Caption = "Open"
.Add(3, , , , 2).Caption = "Save"
.Add(4, , , , 3).Caption = "Charts"
End With
End Sub

335ILFfc.rar (15.13 KB)

[此贴子已经被作者于2007-7-3 21:41:20编辑过]

Sub UserForm_Initialize() 是你自己定义的函数吧,目的是自动加载图标.
你不调用怎么能显示呢?

cQbE7rra.rar (14.93 KB) [求助]工具栏的操作按钮，其功能的代码