Dim wr As Net.WebRequest = Net.WebRequest.Create(TextBox1.Text) Dim res As Net.WebResponse = wr.GetResponse Dim bmp AsNew Bitmap(res.GetResponseStream) PictureBox1.Image = bmp
从互联网加载图片到PictureBox1 Dim wr As Net.WebRequest = Net.WebRequest.Create(TextBox1.Text) Dim res As Net.WebResponse = wr.GetResponse Dim bmp As New Bitmap(res.GetResponseStream)