以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【求助】listview怎么不显示图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107518)

--  作者:ahtlzhujun
--  发布时间:2017/9/29 15:07:00
--  【求助】listview怎么不显示图片
求助为什么不显示图片呀?

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() \'清除原来的分组
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'用大图标模式

Dim Multi As String = DataTables("全景菜单").GetComboListString("分组名称")
Dim Values() As String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() \'增加分组
    vg.Name = values(Index)  \'指定分组名称
    vg.Text = values(Index)  \'指定分组标题
      
    For Each R As DataRow In DataTables("全景菜单").Select(" 分组名称 = \'" & Values(Index) & "\' ")
        Dim it As WinForm.ListViewRow =  lvw.Rows.Add() 
        it.Group = r("分组名称")  \'归纳分组
        it.Text = r("分列名称")
        it.ImageKey =  r("图标地址")
     Next
Next



图片点击可在新窗口打开查看此主题相关图片如下:阿里旺旺图片20170929150418.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/9/29 15:09:00
--  

 不能直接引用图片字典的内容。

 

 你要根据其值【1、2、3】这些,对应的找到图片文件的路径,然后设置路径进去,才行。