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

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

共2个回答

热心网友时间：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

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

ToolBar, ImageList这2个控件在Microsoft Windows Common Controls部件中.
选择工程———部件－选中Microsoft Windows Common Controls ，
然后把工具栏控件画到窗体上对它进行想要的编辑即可。