Foxtable(狐表)用户栏目专家坐堂 → [求助]ListView显示不出文件夹图标


  共有4287人关注过本帖树形打印复制链接

主题:[求助]ListView显示不出文件夹图标

帅哥哟,离线,有人找我吗?
2425004926
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]ListView显示不出文件夹图标  发帖心情 Post By:2021/3/12 17:03:00 [只看该作者]

我用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() '恢复绘制

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/12 17:08:00 [只看该作者]

r.ImageKey = file 

[此贴子已经被作者于2021/3/12 17:08:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/3/12 17:13:00 [只看该作者]

 OK,谢谢!

 回到顶部