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 Sub
De 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