Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

19 - Descargar una imagen de una Url y mostrarlo en un PictureBox con el Api URLDownloadToFile

Con esta función del Api de windows llamada URLDownloadToFile , se puede descargar un archivo de una url sin que aparezca el cuadro de diálogo de Windows Guardar Archivo como....

Es decir este cuadro de diálogo

dialogo de descarga de archivos de windows

Nota: para poder desplegar el diálogo ver la función del api DoFileDownload

Ejemplo para usar URLDownloadToFile

Vista del formulario para descargar un gráfico de internet y cargarlo en un picturebox

descargar un archivo desde una Url mediante el Api URLDownloadToFile

En este ejemplo descargamos una imagen y luego la mostramos en un PictureBox. El funcionamiento de esta APi es muy simple.

El parámetro szURL es la url del archivo a descargar al disco
El parámetro szFileName es el path donde se guardara el fichero

Colocar un control PictureBox

Código fuente en el formulario

Option Explicit

'Funcion API URLDownloadToFile
Private Declare Function URLDownloadToFile _
    Lib "urlmon" _
    Alias "URLDownloadToFileA" ( _
        ByVal pCaller As Long, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
    Call Descargar("http://www.pbs.org/deepspace/images/einstein.gif")
End Sub

Private Sub Form_Load()
    Command1.Caption = "Descargar imagen"
End Sub

Sub Descargar(Url As String)

Me.MousePointer = vbHourglass
    
    'Descargamos el archivo de imagen al disco para después cargarla. _
    El Primer parámetro  es la url y el segundo es el path donde se guarda
    
    Call URLDownloadToFile(0, Url, App.Path & "\imagen.gif", 0, 0)
    
    Me.MousePointer = vbDefault
    
    'Mostramos la imagen en el Picture1
    Picture1 = LoadPicture(App.Path + "\imagen.gif ")
    Picture1.AutoSize = True

'Eliminamos la imagen descargada anteriormente
    If Len(Dir(App.Path & "\imagen.gif")) Then
        Kill App.Path & "\imagen.gif"
    End If
End Sub

Recursos vb 6.0 - Enlaces Relacionados

Recursos visual basic.NET

Métodos para descargar y subir archivos de internet

Buscar en Recursos vb