vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v2.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: HTML/Internet/Netzwerk · Sonstiges   |   VB-Versionen: VB4, VB5, VB631.03.03
Online-Bild in der Picture/ImageBox anzeigen

Hier erfahren Sie, wie sich Bilder aus dem Internet in einer VB-Picture-/ImageBox anzeigen lassen.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  17.206 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8 Beispielprojekt auf CD 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    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:

    1. Download des Bildes und lokal (temporär) zwischenspeichern
    2. temporäre Bilddatei über LoadPicture in die PictureBox/ImageBox laden
    3. Löschen der temporären Datei

    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:
    Starten Sie ein neues Projekt und fügen obigen Code z.B. in ein Modul oder der Form1 ein. Ziehen Sie auf die Form1 eine ImageBox, sowie einen CommandButton.

    Private Sub Command1_Click()
      LoadWebPicture Image1, _
        "http://www.vbarchiv.net/partner/images/cd2_200x166_1.jpg"
    End Sub

    Dieser Tipp wurde bereits 17.206 mal aufgerufen.

    Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

    Über diesen Tipp im Forum diskutieren
    Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

    Aktuelle Diskussion anzeigen (1 Beitrag)

    nach obenzurück


    Anzeige

    Kauftipp Unser Dauerbrenner!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.
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.

    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.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel