.picture = Loadpicture("online")

Hello,

I'm making an app that uses online graphics. I first used the webbowser control to load the images, but than I had an Idea. I would try picture1.picture = loadpicture(OnlineImageURL). This only worked when I put it directly in the proprties of the Picture1. When I try to run this code, it gives an error File / Path Access error... :(

Can anybody help me out?

Here, put this in its own module:

VB Code:

Option Explicit
 
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 TempPath As String
 
Public Function LoadPictureInet(URL As String) As StdPicture
Dim rval As Long
 
   If TempPath = "" Then TempPath = App.Path
   rVal = URLDownloadToFile(0, URL, TempPath & "\temp.dat", 0, 0)
   Set LoadPictureInet = LoadPicture(TempPath & "\temp.dat")
   Kill TempPath & "\temp.dat"
 
End Function

Usage:

VB Code:

TempPath = "C:\Temp"
Set Picture1.Picture = LoadPictureInet("http://www.crystal-rain.com/art/lizardman.jpg")

Thank you very much.. I though It would be possible to load it directly from the web, but it seems not... Well, I'll use your method. Thank you very much...

In any way it'll [most likely] be saved temporarily in Windows/Temp first, so this way is just as good. Plus, it ensures the file is deleted after its displayed.

The code's fixed now. Before, it would give an invalid use of property error.