以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于列表视图  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159813)

--  作者:flashv
--  发布时间:2021/1/9 22:59:00
--  关于列表视图
图片在 RemoteFiles 文件夹下.
如何在列表视图中显示?

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸

For Each dr As DataRow In DataTables("商品资料").DataRows \'从数据表中提取数据
    Dim Key As String = dr("图1") \'获取此照片文件
    lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("商品名称")  \'设置标题
    vr.ImageKey = Key \'设置图片键值
Next

lvw.ResumeRedraw() \'恢复绘制

商品称显示了,图片没有显示.

--  作者:flashv
--  发布时间:2021/1/10 12:30:00
--  
有老师在么?
--  作者:有点蓝
--  发布时间:2021/1/10 20:32:00
--  
图片必须在Images或Attachments子目录