欢迎来到路由器窝!
VB.net基础:如何获得并显示网上图片

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

浏览次数:

作者: 路由器窝

信息来源: www.zngps.com

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

文章简介

在VB.net中,显示图片很简单: PictureBox1.Image=Image.FromFile(FileName) 但是这种办法不能用于显示Internet上的图片,因为Image.FromFile不支持URI格式。那么怎么办呢? 其实 .net为我们准备了一套很方便的方法。在.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控件隐藏
    阅读
    这隐藏控件太恶性了 今天做了一个上午,把五个GropBox迭起来然后根据选到的GropBox显示出来,其余的隐藏(visible属性=false)起来, 重点:必须把GripBox一个一个覆盖才能实现,而且必须覆盖好了 要不然有的显示出来有的显示不出来
  • vb.net2010发送邮件
    阅读
    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) smtp.Credentials = New System.Net.NetworkCredential(发件邮箱, 密码) -----这里有smt
  • VB.NET2010判断网络状态执行相关内容
    阅读
    Imports System.Net.NetworkInformation 引用顶部Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try If (My.Computer.Network.Ping(TextBox1.Text)) Then MsgBox(远程
  • 判断读取RichTextBox是不是到最后
    阅读
    Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (RichTextBox1.Lines.Length = 0) Then MsgBox(文本框为空 ) Exit Sub If (RichTextBox1.Lines.Length =
  • 获取网站代码
    阅读
    Sub 获取一般性网页代码(ByVal URLstr As String) Try Dim w As New System.Net.WebClient() 要Imports System.Net w.Proxy = Nothing 设置为无代理模式,否则首次运行会慢4秒左右。 w.CachePolicy = New Cache.RequestCachePolicy(Cache.RequestCacheLevel.
  • VB.NET用正则表达提取数字
    阅读
    Dim bbb As Stringbbb = TextBox1.Text Dim My_str As String = Regex.Replace(bbb, [^0-9], ) 这里把替换所有非数字为空字符串,改为替换所有非数字为空格MsgBox(My_str)
  • WebBrowser控制提示脚本错误
    阅读
    将WebBrowser控件ScriptErrorsSuppressed设置为True即可
  • 在Vb.Net中弹出对话框的简单方法。使用Messagebox
    阅读
    方法很简单,就是引用 System.Windows.Forms. 然后在代码页面头部 ImportsSystem.Windows.Forms 即可。 或者直接使用System.Windows.Forms.Messagebox.show() 之后就能使用Messagebox对话框了。
  • WebBrowser1 打开网站方法
    阅读
    WebBrowser1.Url = New Uri(http://www.zngps.com/ + url)
上一篇:获取网站代码
下一篇:没有了
最近更新作品