以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]在ListView1里面如何显示网页图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110155)

--  作者:188802386
--  发布时间:2017/11/27 21:30:00
--  [求助]在ListView1里面如何显示网页图片
图片列存放的是图片网址,请问如何显示网页上的网址而不是本地的
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

--  作者:有点蓝
--  发布时间:2017/11/27 22:11:00
--  
只能下载到本地才能显示
--  作者:188802386
--  发布时间:2017/11/27 22:18:00
--  
那请问,在从网上获取到图片网址后,如何设置为自动下载到本地呢
--  作者:有点蓝
--  发布时间:2017/11/27 22:19:00
--  
1、http://www.foxtable.com/webhelp/scr/1402.htm


--  作者:188802386
--  发布时间:2017/11/28 9:41:00
--  
我突然有个想法,不知道能实现不,就是 图片控件可以显示在线图片 那么如何实现在ListView示例22的例子里面插入图片控件呢 这样就可以动态显示在线图片了,但因为没这样的示例,我写不来,麻烦大侠们帮忙解决一下,谢谢

ListView

ListView


--  作者:有点甜
--  发布时间: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)


--  作者:有点甜
--  发布时间:2017/11/28 9:56:00
--  
最简单,还是现在到本地,再显示吧?必须下载后才能显示的。