Haben Sie sich auch schon einmal gefragt, wie man Bilder aus dem Internet in einer VB-PictureBox bzw. ImageBox anzeigen kann? Ihr erster Gedanke war evtl. folgende Variante: Image1.Picture = LoadPicture("http://www.domain.de/bild1.jpg") Leider unterstützt VB diese Variante nicht Abhilfe schafft hier folgende Überlegung:
Das ganze lässt sich dann in Visual Basic wie folgt umsetzen: Option Explicit ' Benötigte API-Funktionen 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 Private Declare Function GetTempFileName Lib "kernel32" _ Alias "GetTempFileNameA" ( _ ByVal lpszPath As String, _ ByVal lpPrefixString As String, _ ByVal wUnique As Long, _ ByVal lpTempFileName As String) As Long ' Bild downloaden und zwischenspeichern Public Sub LoadWebPicture(oPicControl As Control, _ ByVal sURL As String, _ Optional ByVal sLocalFile As String = "", _ Optional ByVal bKillLocalFile As Boolean = True) Dim sTempFile As String Dim sTempPath As String Dim nResult As Long ' Falls kein lokaler Dateinamen zum Zwischenspeichern ' angegeben wurde, wird ein temporärer Dateiname ' erzeugt If sLocalFile = "" Then sTempPath = Environ$("TEMP") sTempFile = Space$(256) Call GetTempFileName(sTempPath, "pic", 0&, sTempFile) sLocalFile = Left$(sTempFile, InStr(sTempFile, Chr$(0)) - 1) End If ' Bilddatei downloaden nResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) ' Bild in die Picture/ImageBox laden On Error Resume Next oPicControl.Picture = LoadPicture(sLocalFile) If Err <> 0 Then oPicControl.Picture = LoadPicture() On Error Goto 0 ' temporäre Datei ggf. löschen If bKillLocalFile Then Kill sLocalFile End Sub Beispiel: Private Sub Command1_Click() LoadWebPicture Image1, _ "http://www.vbarchiv.net/partner/images/cd2_200x166_1.jpg" End Sub Dieser Tipp wurde bereits 24.532 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |