以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于列表视图 (http://foxtable.net/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子目录 |