如何设置ListView1的图标

zhxiongying 2004-12-28 01:34:15
Dim icon As Icon = ExtractIcon.GetIcon(filenamekz, False)

Dim lvi As ListViewItem = New ListViewItem(filedir, 0)
ListView1.Items.Add(lvi).ForeColor = Color.Red
lvi.SubItems.Add(filename & filenamekz)
lvi.SubItems.Add(name2)
lvi.SubItems.Add("不可改")

'=====================================================================
怎么将"icon"设置为ListView1.Items的图标
...全文
242 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
TonyTonyQ 2004-12-29
  • 打赏
  • 举报
回复
忘了说了,
Dim imgFileIcons As New ImageList

之后,要

listview.ImageList=imgFileIcons

'....
TonyTonyQ 2004-12-29
  • 打赏
  • 举报
回复
你用的ExtractIcon类是那个提取文件图标的类吧,呵呵,我也用这个,是这样用的

Dim imgFileIcons As New ImageList

'.......
imgFileIcons.Images.Add(IconExtractor.GetSmallIcon(fsi))

Dim item As New ListViewItem(FileName, imgFileIcons.Images.Count - 1)
item.SubItems.Add(name2)
'........

listview.Items.Add(item)
APP开发王 2004-12-28
  • 打赏
  • 举报
回复
要先定义个ImageList

listview.ImageList=ImageList
就OK
3tzjq 2004-12-28
  • 打赏
  • 举报
回复
如果你的图标文件是出资源文件中取出:
Dim imgList As New ImageList
imgList.ImageSize = New Size(16, 16)
imgList.ColorDepth = ColorDepth.Depth24Bit
imgList.Images.Add(Icon)
Me.lvwFunc.StateImageList = imgList
Me.lvwFunc.Items(0).ImageIndex = 0
mademelaugh 2004-12-28
  • 打赏
  • 举报
回复
listview.smallimagelist 或者listview.largeimagelist
listview.items(i).imageindex

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧