Foxtable(狐表)用户栏目专家坐堂 → listview怎么不显示图片,是代码的问题么?


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

主题:listview怎么不显示图片,是代码的问题么?

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
listview怎么不显示图片,是代码的问题么?  发帖心情 Post By:2017/3/27 13:54:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.View = ViewMode.SmallIcon '显示模式为小图标
lvw.CheckBoxes = True
For Each dr As DataRow In DataTables("商品").DataRows '从数据表中提取数据
  ' Dim Key As String = dr("ppp")
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
      Dim Key As String = "c:\图片\" & dr("ppp")'
    lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值

       r.ImageKey = Key '指定图标键值
    r.Text = dr("ppp") '指定行的标题
    r.Name  = r.Text '将行的名称设置为标题,也就是国家
Next
lvw.ResumeRedraw() '恢复绘制


已经解决了。谢谢
[此贴子已经被作者于2017/3/27 13:59:34编辑过]

 回到顶部