偶看新闻孙景郑州铁路局书记:实现带图标列表项
来源：百度文库 编辑：偶看新闻 时间：2024/05/01 14:47:20
*-- 说明：以默认方式将一个LISTBOX控件拖到一个表单上，
* 那么下列代码就可以往这个LISTBOX里添加带有图片
* 的项目了。
*-- 定义8个LIST里的项目名称，以及他们的图片名称
dime content(8,2)
content(1,1) = "第一页"
content(2,1) = "上一页"
content(3,1) = "下一页"
content(4,1) = "末一页"
content(5,1) = "打印设置"
content(6,1) = "报表打印"
content(7,1) = "报表属性"
content(8,1) = "关闭报表"
content(1,2) = "btnHome"
content(2,2) = "btnPrev"
content(3,2) = "btnNext"
content(4,2) = "btnEnd"
content(5,2) = "btnSetup"
content(6,2) = "btnPrint"
content(7,2) = "btnProp"
content(8,2) = "btnClose"
*-- 循环加入这8个项目的名称及指定他们的图片，默认扩展名是BMP的。
With Thisform.List1
For n = 1 to 8
.AddItem(content(n,1))
.Picture(n) = content(n,2) + ".bmp"
EndFor
EndWith
注：上述代码是用在列表框的（即LISTBOX），那么如果要应用在下拉列表框中，如何呢？
只需要将List改成Combo即可，属性设置都为默认值即可！
* 那么下列代码就可以往这个LISTBOX里添加带有图片
* 的项目了。
*-- 定义8个LIST里的项目名称，以及他们的图片名称
dime content(8,2)
content(1,1) = "第一页"
content(2,1) = "上一页"
content(3,1) = "下一页"
content(4,1) = "末一页"
content(5,1) = "打印设置"
content(6,1) = "报表打印"
content(7,1) = "报表属性"
content(8,1) = "关闭报表"
content(1,2) = "btnHome"
content(2,2) = "btnPrev"
content(3,2) = "btnNext"
content(4,2) = "btnEnd"
content(5,2) = "btnSetup"
content(6,2) = "btnPrint"
content(7,2) = "btnProp"
content(8,2) = "btnClose"
*-- 循环加入这8个项目的名称及指定他们的图片，默认扩展名是BMP的。
With Thisform.List1
For n = 1 to 8
.AddItem(content(n,1))
.Picture(n) = content(n,2) + ".bmp"
EndFor
EndWith
注：上述代码是用在列表框的（即LISTBOX），那么如果要应用在下拉列表框中，如何呢？
只需要将List改成Combo即可，属性设置都为默认值即可！
vb实现用户列表
VB问题："双击列表项可以循环显示清单"怎么实现不了啊 ？
excel 的多选列表，查看时想要只显示选定的项。请问怎么实现？
如何用asp实现在线用户列表
如何在网页实现列表一层一层结构
vb代码实现大图标小图标
WINDOWS开始列表中图标删除不了
如何把排列图标默认为列表?
怎么在excel文档中实现下拉列表选择框？
怎么样在网页中实现下拉列表的提取？
Combox控件怎样实现动态添加列表?谢谢!
用perl实现，将列表转换成文本
省市联动列表框的问题：如何实现隐藏？
在Dreamwaver中实现下拉列表框的跳转．
asp如何实现两个列表框的关联？？？
如何实现LISTBOX显示本机服务器名列表，数据库列表
怎么样在delphi中实现托盘图标？？
怎么样在所有文件夹下应用平铺，列表，图标什么的
怎样把Internet图标从列表中移动到桌面?
怎么让p908的应用程序列表变成图标排列，不是列表排列！
系统自带录音机无法实现录音
双线路宽带能实现吗?
双线路宽带能实现吗?
xp 带了多少应用软件，最好能列表