欢迎来到路由器窝!

VB.net基础:如何获得并显示网上图片

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2020-07-02 08:46

文章简介

在VB.net中,显示图片很简单: PictureBox1.Image=Image.FromFile(FileName) 但是这种办法不能用于显示Internet上的图片,因为Image.FromFile不支持URI格式。那么怎么办呢? 其实 .net为

  • 正文开始
  • 相关文章

在VB.net中,显示图片很简单:

PictureBox1.Image=Image.FromFile(FileName)

但是这种办法不能用于显示Internet上的图片,因为Image.FromFile不支持URI格式。那么怎么办呢?

其实 .net 为我们准备了一套很方便的方法。在.net中,网上的资源(图片,动画,声音,网页等等)是通过System.Net.WebRequest 和 System.Net.WebResponse 两个类来得到的。简单的说,得到Internet上的图片的步骤是这样的(以http://images.sohu.com/logo1.gif为例):

1. 先通过URI建立一个WebRequest(请参考WebRequest构造函数):
 Dim wr As WebRequest = WebRequest.Create("http://images.sohu.com/logo1.gif")

 2. 然后通过其GetResponse方法得到一个WebResponse:
 Dim res As WebResponse= wr.GetResponse

 3. 通过WebResponse.GetResponseStream方法得到的流来创建Bitmap:
 Dim bmp As New Bitmap(res.GetResponseStream)

 4. 这样,就能显示图片了:
 PictureBox1.Image=bmp


怎么样,不复杂吧。有两点要注意,一是要把这段代码用try包起来,因为服务器返回404等错误的时候会引发异常;二是最好把这个过程放到单独的线程里,以免程序界面没有响应。

转载请注明:vs2010» VB.net基础:如何获得并显示网上图片

标签:
  • VB.NET添加皮肤带实例查看工具
    201阅读
    第一步 添加皮肤控件dll: 项目-》添加引用-》浏览 选择IrisSkin4.dll第二步 导入皮肤 可以直接在项目的Debug目录下新建一个skin文件夹,然后复制皮肤.ssk文件到该文件夹第三步 在窗体的Load方法下面,添加如下代码,这里以VB.NET为例: Dim mySkin As Sunisof
  • vb.net2010发送邮件
    190阅读
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim smtp As New System.Net.Mail.SmtpClient(smtp.126.com, 25) smt...
  • vb.net控件隐藏
    204阅读
    这隐藏控件太恶性了 今天做了一个上午,把五个GropBox迭起来然后根据选到的GropBox显示出来,其余的隐藏(visible属性=false)起来, 重点:必须把GripBox一个一个覆盖才能实现,而且必须覆盖好了 要不然有的显示出来有的显示不出来
  • WebBrowser控制提示脚本错误
    235阅读
    将WebBrowser控件ScriptErrorsSuppressed设置为True即可
  • VS 编译提示 无法将“obj\Debug\*.*”复制到“bin\Debug\*.*”,
    134阅读
    VS 编译提示 无法将obj\Debug\*.*复制到bin\Debug\*.*,文件...正在由另一个进程使用,因此该进程无法访问此文件 解决办法 vs 编译项目的时候,有时候会出现下面的问题: 解决办法: 1. 通过设置 通过设置可以解决, 具体路径是:菜单栏下的 项目-属性-调试-
  • vb.net打开网址方法
    176阅读
    System.Diagnostics.Process.Start(www.163.com)或者用 WebBrowser控件,代码 WebBrowser1.Url = New System.Uri(http://www.163.com)
  • vb.net2010读取网页内容
    120阅读
    Dim Doc As New System.Net.WebClient Dim TempText As String TempText = System.Text.Encoding.Default.GetChars(Doc.DownloadData(http://www.zngps.com/)) RichTextBox...
  • VB.NET用正则表达提取数字
    288阅读
    Dim bbb As Stringbbb = TextBox1.Text Dim My_str As String = Regex.Replace(bbb, [^0-9], ) 这里把替换所有非数字为空字符串,改为替换所有非数字为空格MsgBox(My_str)
  • vb.net 正则表达式 取 html代码中的A标签的 href 链接
    321阅读
    Public Sub saveAUrl(ByVal Str As String) Dim r As Regex Dim m As Match r = New Regex((?=a.*?href\s*=\s*)(?1[^]*)(?=|(?1\S+)), RegexOptions.IgnoreCase Or RegexOp...
上一页:获取网站代码
没有了
最近更新作品
VB.net基础:如何获得并显示网上图片
更新时间:2020-07-02

185人已经看过了!

获取网站代码
更新时间:2019-09-21

179人已经看过了!

vb.net 正则表达式 取 html代码中的A标签的 href 链接
更新时间:2019-09-21

321人已经看过了!

VB.NET用正则表达提取数字
更新时间:2019-09-21

288人已经看过了!

判断指定路径下是否存在指定文件
更新时间:2018-12-08

147人已经看过了!

vb.net控件隐藏
更新时间:2017-11-20

204人已经看过了!

vb.net2010邮件发送带附件,带设置测试可用
更新时间:2017-08-24

168人已经看过了!

vb.net2010发送邮件
更新时间:2017-08-24

190人已经看过了!

VB.NET固定选项卡TabControl的标题宽度
更新时间:2017-06-13

200人已经看过了!