不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

imagelist和listview的问题，非常简单非常急

楼主ivt（零下一度(.net版)）2002-04-10 11:09:19 在 VB / 基础类提问

picture1控件中有一幅*.ico图片

Set imgx = ImageList1.ListImages.Add(1,"top" , Picture1.Picture)
ListView1.View = lvwIcon '图标形式浏览
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
strsql = "select * from 部门基本信息"
rs.Open strsql, conn
Do Until rs.EOF
Set listit = ListView1.ListItems.Add()
listit.Text = rs!部门名称
listit.Icon = "top"
listit.Key = rs!部门名称
rs.MoveNext
Loop

在listit.icon="top"出错，提示请先初始化imagelist
若是不要picture1控件直接在imagelist中插入此幅ico图片，错误同样还在
急死人了？？问题点数：50、回复次数：9Top

1 楼gump2000（阿甘）回复于 2002-04-10 11:12:05 得分 45

您只能用Index来，不能用Key
listit.Icon = 1
Top

2 楼gump2000（阿甘）回复于 2002-04-10 11:12:56 得分 0

还有，您必须设置图像列表属性
Top

3 楼ivt（零下一度(.net版)）回复于 2002-04-10 11:22:37 得分 0

您必须设置图像列表属性

要设置它哪些属性呢，我试试，请你一定要再来哟

否则不好给分呀Top

4 楼ivt（零下一度(.net版)）回复于 2002-04-10 11:29:17 得分 0

都是一样的错误呀

在imagelist可以使用之前必须将它初始化

什么意思呀Top

5 楼gump2000（阿甘）回复于 2002-04-10 11:35:34 得分 0

listview->right click->属性->图像->选择一下了Top

6 楼ivt（零下一度(.net版)）回复于 2002-04-10 11:53:00 得分 0

我试过了这种方法，还是不行的
不过

我现在找到了解决的办法，谢谢指点，给分Top

7 楼sunnycai（飞鸟）回复于 2002-04-10 11:55:24 得分 5

Dim imgX As ListImage
'把图象添加到 ListImages 集合中。
Set imgX = ImageList1.ListImages.Add(,"rocket",LoadPictur("icons\industry\rocket.ico"))
Top

8 楼ivt（零下一度(.net版)）回复于 2002-04-10 11:56:51 得分 0

已经解决了
谢谢你
希望与你成为好朋友
QQ：23734059
给分Top

9 楼qbilbo（风之兄）回复于 2002-04-10 12:10:55 得分 0

listview->right click->属性->图像列表->普通->选择imagelist1
或在代码中用：listview1.icons = imagelist1 来设置

Set listit = ListView1.ListItems.Add()
listit.Text = rs!部门名称
listit.Icon = "top"
listit.Key = rs!部门名称
改为
ListView1.ListItems.Add , rs!部门名称, rs!部门名称, 1
Top