.picture = Loadpicture("online")

[BShadow]

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?

[Sastraxi]

Here, put this in its own module:

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:

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

[BShadow]

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...

[Sastraxi]

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.

[Sastraxi]

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