Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor 'Con esto el puntero del ratón da vueltas mientras carga la imagen Try 'Buscamos y cargamos la imagen Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(TextBox1.Text) Dim response As System.Net.WebResponse = request.GetResponse() Dim responseStream As System.IO.Stream = response.GetResponseStream() 'Asignamos la imagen a un Bitmap Dim bmp As New Bitmap(responseStream) 'Asignamos la imagen al PictureBox PictureBox1.Image = bmp Catch 'Aquí se pondría la imagen que se desea, si el recurso no está disponible Dim value As New String("error.jpg") 'La cargamos por ruta Dim bmp2 As New Bitmap(value) 'La asignamos al bmp Return bmp2 'La asignamos al picturebox End Try 'Refrescamos imagen Panel1.AutoScrollMinSize = PictureBox1.Image.Size Panel1.AutoScroll = True End SubDe esta forma tan sencilla, cargaríamos imágenes de Internet en nuestro PictureBox.
Si quieres descargar el ejemplo, pulsa aquí.
No hay comentarios:
Publicar un comentario