Foxtable(狐表)用户栏目专家坐堂 → [求助]在ListView1里面如何显示网页图片


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

主题:[求助]在ListView1里面如何显示网页图片

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
[求助]在ListView1里面如何显示网页图片  发帖心情 Post By:2017/11/27 21:30:00 [只看该作者]

图片列存放的是图片网址,请问如何显示网页上的网址而不是本地的
Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") '员工列表
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") '活动一参与者列表
Dim lvw3 As WinForm.ListView = e.Form.Controls("ListView3") '活动二参与者列表
Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3} '看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
lvw.View = ViewMode.List
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("Image").DataRows '从数据表中提取数据
        Dim Key As String = dr("图片") '获取此员工的照片文件
        lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
        Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
        vr.ImageKey = Key '设置图片键值
    Next
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110802 积分:563948 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/27 22:11:00 [只看该作者]

只能下载到本地才能显示

 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2017/11/27 22:18:00 [只看该作者]

那请问,在从网上获取到图片网址后,如何设置为自动下载到本地呢

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110802 积分:563948 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/27 22:19:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2017/11/28 9:41:00 [只看该作者]

我突然有个想法,不知道能实现不,就是 图片控件可以显示在线图片 那么如何实现在ListView示例22的例子里面插入图片控件呢 这样就可以动态显示在线图片了,但因为没这样的示例,我写不来,麻烦大侠们帮忙解决一下,谢谢

ListView

ListView


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/28 9:55:00 [只看该作者]

这样写

 

Dim url As String = "https://ss0.bdstatic.com/5aV1bjqh_Q23odCf/static/superman/img/logo/bd_logo1_31bdc765.png"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim img As image = System.Drawing.Image.FromStream(stm)
rsps.Close
stm.Close

 

'lvw.Images.LargeImages.Add("abcdefg", img)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/28 9:56:00 [只看该作者]

最简单,还是现在到本地,再显示吧?必须下载后才能显示的。

 回到顶部