拜托,你把toolbar的name给改成tlbar了,在程序里怎么还用toolbar呢!
尽量不要用汉字做过程名.
我把你的程序给改了,你看看吧!
2007-07-02 08:49
2007-07-03 16:54
奇怪用下面的怎么不行呀？
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编辑过]
2007-07-03 21:40
Sub UserForm_Initialize() 是你自己定义的函数吧,目的是自动加载图标.
你不调用怎么能显示呢?
2007-07-04 10:43