我用ListView显示文件夹图标,为何显示不出来,“ProjectPath & "Attachments\”底下全部是文件夹,在Images文件夹下有个file.jpg图片,用来显示文件夹的图标
此主题相关图片如下:1615539294(1).png

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.AllowEdit = True '允许编辑标题
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.StopRedraw() '暂停绘制
Dim file As String
For Each dir As String In FileSys.GetDirectories(ProjectPath & "Attachments\")
file = FileSys.GetName(dir)
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.LargeSize = New Size(80,80) '定义大图标尺寸
lvw.Images.AddLargeImage(file,
ProjectPath & "Images\file.jpg") '添加代表这个图片的大图标,第一个为键值,第二个为对应的照片
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
r.Text = b '指定标题
r.ImageKey = ProjectPath & "Images\file.jpg"Next
lvw.ResumeRedraw() '恢复绘制