Question

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

大虾们，多谢指教 具体点。我找了半天也没找到 看MSDN看得晕了

Answer 1

这两个控件一般是组合起来，用来制作工具栏按钮的.
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

Answer 2

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