This is probably simple, but the logic has slipped past me. How do I
load a picture into a control image from a website stored file?

This doesn't work:

Me.Image1.Picture = _
LoadPicture("http://www.somewebsite.com/pix/someimage.gif")

But entering "http://www.somewebsite.com/pix/someimage.gif" into the
Image Control Properties box for Picture does work.

Thank you for your ideas.

Phil

A good sample can be found on
http://www.wretch.cc/blog/crdotlin&article_id=8153261 which uses an
API-call.



Option Explicit

Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

Private Declare Function OleLoadPicturePath Lib "oleaut32" _
(ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal
dwReserved As Long, _
ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef
ppvRet As IPicture) As Long


Public Function LoadPicture(ByVal strFileName As String) As IPicture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo ERR_LINE
Set LoadPicture = stdole.LoadPicture(strFileName)
Exit Function
ERR_LINE:
On Error Resume Next
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
If LoadPicture Is Nothing Then
MsgBox "Can not find " & strFileName
End
End If
End Function


Private Sub CommandButton1_Click()
Set Me.Image1.Picture = LoadPicture("http://your.image.here/")
End Sub











"Phil" schreef in bericht
oups.com...
This is probably simple, but the logic has slipped past me. How do I
load a picture into a control image from a website stored file?

This doesn't work:

Me.Image1.Picture = _
LoadPicture("http://www.somewebsite.com/pix/someimage.gif")

But entering "http://www.somewebsite.com/pix/someimage.gif" into the
Image Control Properties box for Picture does work.

Thank you for your ideas.

Phil