[RESOLVED] Load a url into a picture box?

[feneck]

Just as the name says, how do I load an image, that is online, into my Picture box?

[Fazi]

Hai feneck,

URLDownloadToFile() API is you require.

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates ([email protected])
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

replace the url with the url to the image
on the second parameter, you specify the location and a name to save it on your hard drive. form the hard drive, load it in to your picture box.

[Zach_VB6]

Shortened Fazi's code:

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    DownloadFile = (URLDownloadToFile(0, URL, LocalFilename, 0, 0) = 0)
End Function
Private Sub Form_Load()
    'example by Matthew Gates ([email protected])
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

[feneck]

Thanks guys. easy as...
I rated both of you

thanks again

[Fazi]

Tx Feneck!

[Zach_VB6]

Thanks guys. easy as...
I rated both of you

thanks again

Thanks Feneck