以文本方式查看主题

-  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=98262)
--  作者：jinzhengbe
--  发布时间：2017/3/27 13:54:00
--  listview怎么不显示图片，是代码的问题么？
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编辑过]