如何在VB程序中使用imagelist,toolbar这两个控件?

发布网友发布时间：2022-05-18 20:23

共1个回答

热心网友时间：2023-10-31 00:05

这两个控件一般是组合起来，用来制作工具栏按钮的.
imagelist可以自己通过属性页来添加图象，或是使用
imagelist1.ListImages.Add
指令来增加图象.
Dim
imgX
As
ListImage
'将图片加载到
ImageList
控件中。
Set
imgX
=
ImageList1.ListImages.
_
Add(,
"文字",
LoadPicture("图象.bmp"))
而后可以在toolbar里面使用.
在toolbar里面可以通过属性页来添加按钮..
也可以用
Set
btnX
=
Toolbar1.Buttons.Add(,
"open",
,
tbrDefault,
"open")
来增加按钮
在使用toolbar时先把
属性页里面的图象列表改成imagelist的控件名..
之后再属性页添加按钮时就可以设置图象
数值1就是代表imagelist里面的第一个图.
最后..
可以在toolbar的ButtonClick事件里书写代码.
比如..
Private
Sub
Toolbar1_ButtonClick(ByVal
Button
As
MSComctlLib.Button)
MsgBox
Button.Index
End
Sub
在这里点击了工具栏按钮之后就显示了.点击的是第几个按钮..
Select
Case
Button.Index
Case
1
MsgBox
"第一"
Case
2
MsgBox
"第二"
End
Select