[求助]ListView控件小图标显示的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ListView控件小图标显示的问题

共有6413人关注过本帖树形打印复制链接主题：[求助]ListView控件小图标显示的问题

2425004926

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：712 积分：5553 威望：0 精华：0 注册：2019/11/14 9:36:00

[求助]ListView控件小图标显示的问题 发帖心情

Post By：2021/4/13 14:25:00 [只看该作者]

显示文件夹下的图片文件，并给这些文件加一个小图标“phot.ico",为何标题显示没问题，这个小图标就是不显示？

lvw.StopRedraw() '暂停绘制

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

        lvw.View = ViewMode.SmallIcon '显示模式为小图标
        lvw.Images.SmallSize = New Size(16,16) '定义小图标尺寸
        Dim key As String = "phot"
        lvw.Images.AddSmallImage(key, key & ".ico") '添加代表这个图片的大图标,第一个为键值,第二个为对应的照片
        For Each File As String In FileSys.GetFiles(ProjectPath & "Attachments\" & f)
            If file IsNot Nothing Then
                Dim a As String = file   '文件名
                Dim b As String = a.SubString(a.LastIndexOf("\")+1)
                Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
                r.Text = b '指定标题
                r.ImageKey = key '设置图片键值
            End If
        Next
        lvw.ResumeRedraw() '恢复绘制

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107290 积分：545711 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/13 14:34:00 [只看该作者]

图标文件有放在项目里的Images或Attachments子目录中吗

2425004926

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：712 积分：5553 威望：0 精华：0 注册：2019/11/14 9:36:00

Post By：2021/4/13 14:41:00 [只看该作者]

粗心了，放在另外一个文件的Images下面了，就说怎么不行，现在OK了，谢谢！

riverzhang163

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：140 积分：1256 威望：0 精华：0 注册：2015/11/5 13:33:00

[求助] LISTVIEW 图片为什么不显示 发帖心情

Post By：2022/11/5 10:26:00 [只看该作者]

我的图片放在项目Publish/project> Attachments里面，语句如下：

Dim lvw As WinForm.ListView = e.Sender
Dim dr As DataRow = DataTables("产品规格表").DataRows(e.Index) '根据行位置从数据表中取得对应的DataRow
Dim Key As String = dr("前面版_图样")
lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的图标
e.Row.Imagekey = key '指定图标键值
e.Row.Tag = dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值

e.Row(cl.Name) = dr(cl.Name)
Next

图片有JPEG格式，也有PNG格式

运行后一直显示不出图片，请老师帮忙，谢谢！