BitBtn按钮的Glyph属性只能使用bmp图片,如果想用icon做图片可以使用下面语句。
在窗体上添加imagelist,然后在form的create函数中添加
ImageList1.GetBitmap(0, BitBtn1.Glyph)
================================或者===方法二:
用ToolBar ,然后添 个ImageList,然后点右键添 个按钮,将TooBar的Images设置为ImageList修改各位按钮的ImageIndex,或把BitBtn托到Toobar上,修改Caption 和Glyph也可以达到同 效果;
分页用pageControl,右键添 个tabSheet,然后设置一下它们的ImageList,ImageListIndex和Caption应该就差不多可以满足 的要求了。
delphi7里的bitbtn按钮如何动态加载图标?
需要对BitBtn1 入一个OnMouseMove事件, 然后应用如下 载图片.
BitBtn1.Glyph:= Nil
BitBtn1.Glyph.LoadFromFile('check.bmp')
注意: 对BitBtn原有图像的清除是必须的一步.
C#中imagelist动态添加的图片确定索引号方法:imageList1.Images.Add("key",new Bitmap("图片路径"))//不同的图片用不同的字符串替代key
注:只要Windows图片浏览器支持的格式理论上都可以,不行的话可以将图片转化格式。
方法如下
(1)新建一个VB工程
(2)在控件工具箱中添加ListView和ImageList控件
在工具箱上鼠标右键单击-->调出菜单
(3)在窗体上布置一个ListView和一个ImageList
(4)向ImageList1中插入图片
鼠标右键单击ImageList1-->调出菜单-->属性
(5)将ListView1与ImageList关联起来
鼠标右键单击ListView1-->调出菜单-->属性
(6)窗体代码
Option ExplicitPrivate Sub Form_Load()
'向ListView1中添加项
Dim itemX As ListItem
With ListView1
Set itemX = .ListItems.Add(, , "项目1")
'使用ImageList1中的#1图
itemX.Icon = 1
Set itemX = .ListItems.Add(, , "项目2")
'使用ImageList1中的#2图
itemX.Icon = 2
End With
End Sub
(7)运行效果
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)