lunes, 2 de julio de 2012

Abrir imagen desde URL

En esta ocasión os voy a dejar un código muy sencillo para abrir URLs de imágenes de Internet y asignarlas a un PictureBox. Para ello debemos tener, un Texbox, un botón y un PictureBox (asociado a una Panel). El código que asociamos al botón es el siguiente:


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