Picture1.Picture = LoadPicture( via http )

Prøv noget i stil med:

Dim client AS WebClient = New WebClient()
Dim picture AS Byte() = client.DownloadData("http://www.eksperten.dk/img/arrow-right.gif")
client.Dispose()

Dim MS AS MemoryStream = new MemoryStream(picture, 0, picture.Length)
Picture1.Image = Image.FromStream(MS)

- kræver Imports af using System.IO og System.Net.

Hej nielle,
Jeg bruger VB6 <-

'---------------------------------- Form1 ----------------------------------
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.dll" (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 Picture
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
    OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
    Exit Function
ERR_LINE:
    Set LoadPicture = VB.LoadPicture(strFileName)
End Function

Private Sub Form_Load()
  Set Me.Picture = LoadPicture("http://www.allapi.net/images/allapi_logo.gif")
End Sub
'---------------------------------- Form1 ----------------------------------

Sorry - VB6 - så er jeg lidt ude og gætte, men prøv noget i stil med:

Dim strStreamURL As String = "URL=http://www.eksperten.dk/img/arrow-right.gif"

Dim objRecord As Record = New Record
objRecord.Open "", strStreamURL

Dim strRecordPath As String = "C:\arrow-right.gif"
objRecord.CopyRecord "", strRecordPath, , , adCopyOverWrite

Picture1.Picture = LoadPicture(strRecordPath)

objRecord.Close

... tilrettet fra:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthcopyrecordvbx.asp

sjh ->Tak for det, meget interessant. Hvordan kan jeg smi der:
for if "http://www.allapi.net/images/allapi_logo.gif" ikke findst (not exist) ?
Den loader formen uten ERR msg selv om *.gif filen ikke findst.

nielle -> Det nermeste jeg komer til er: 'og den blir forkert

Private Sub Form_Load()

Dim strStreamURL, strRecordPath As String
strStreamURL = "URL=http://www.eksperten.dk/img/arrow-right.gif"
strRecordPath = "C:\Amidlert\vb_test\imageLoad\arrow-right.gif"

Dim objRecord As Record
Set objRecord = New Record

objRecord.Open "", strStreamURL
objRecord.CopyRecord "", strRecordPath, , , adCopyOverWrite

Picture1.Picture = LoadPicture(strRecordPath)

objRecord.Close
End Sub

sjh-> den er OK, taker