listview控件加载图片的问题 一个Listview中每一行有两列都要加载图片,而且这两个图片的尺寸不一样,只能用两个imagelist分别装入两组图片,但是不知道如何写Listview的代码来加载这两个来自不同imagelist的图片? 请高手帮助 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 listview能在2列同时加载图片么? 给你个参考示例 ListView1.View = lvwReport '显示风格 ListView1.Appearance = ccFlat '平面显示 ListView1.BorderStyle = ccNone '外框风格 ListView1.LabelEdit = lvwManual '不允许即时编辑标签 ListView1.MultiSelect = True '允许多选 ListView1.Gridlines = True '显示网格线 ListView1.FullRowSelect = True '整行选取 ListView1.FlatScrollBar = False '使用三维的滚动条 ListView1.ColumnHeaders.Clear '清除默认列标头 ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合 ListView1.Icons = ImageList1 '设置大图标集合 ListView1.SmallIcons = ImageList1 '设置小图标集合'以下为列标头设置 ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 4, , 4 ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 4, lvwColumnCenter, 5 ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 4, lvwColumnCenter, 6 ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 4, lvwColumnCenter, 7'以下为添加数据 ListView1.ListItems.Add , , "待发", , 1 '状态 ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名 ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机 ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址 ListView1.ListItems.Add , , "待发", , 2 '状态 ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名 ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机 ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址 ListView1.ListItems.Add , , "待发", , 3 '状态 找一个高手写游戏外挂(有偿) 调用API变更注册表--帮我看看那里写错了 如何模拟客户端发送封包.像WPE这样 将窗体的形状制作成椭圆状时,初始化的时候总是要闪现一下原来的矩形窗体 VB如何得到光标所在处的句柄! 关于activereport 2.0 如何进行分栏,且每栏有标题 我想请问api函数说明setbkcolor的返回值是前一个背景色是怎么回事? 高手请进,参与有分! VB中,文件拷贝是怎么实现的 新手请教各位热心大虾简单问题。 VB 编写的软件如何防止被复制使用? 用VB编写复制、粘贴
ListView1.View = lvwReport '显示风格
ListView1.Appearance = ccFlat '平面显示
ListView1.BorderStyle = ccNone '外框风格
ListView1.LabelEdit = lvwManual '不允许即时编辑标签
ListView1.MultiSelect = True '允许多选
ListView1.Gridlines = True '显示网格线
ListView1.FullRowSelect = True '整行选取
ListView1.FlatScrollBar = False '使用三维的滚动条
ListView1.ColumnHeaders.Clear '清除默认列标头
ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合
ListView1.Icons = ImageList1 '设置大图标集合
ListView1.SmallIcons = ImageList1 '设置小图标集合
'以下为列标头设置
ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 4, , 4
ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 4, lvwColumnCenter, 5
ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 4, lvwColumnCenter, 6
ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 4, lvwColumnCenter, 7'以下为添加数据
ListView1.ListItems.Add , , "待发", , 1 '状态
ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名
ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机
ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址
ListView1.ListItems.Add , , "待发", , 2 '状态
ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名
ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机
ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址
ListView1.ListItems.Add , , "待发", , 3 '状态