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


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

主题:[求助]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() '恢复绘制

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2021/4/13 14:41:00 [显示全部帖子]

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

 回到顶部