vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Grafik und Font · Bilder und Icons   |   VB-Versionen: VB.NET12.09.05
Bild online vom Webserver laden und anzeigen

Wie man mit VB.NET ein Bild online von einem Webserver laden und anzeigen kann, zeigt dieser Tipp.

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

Heute möchten wir Ihnen eine Möglichkeit aufzeigen, wie man ein Bild, das online auf einem Webserver gespeichert ist, laden und in einem PictureBox-Control anzeigen kann.

Erstellen Sie hierzu ein neues WindowsForms-Projekt mit einem PictureBox-Control und einem CommandButton und fügen nachfolgenden Code ein:

Imports System.IO, System.Net
 
Public Class Form1
  Inherits System.Windows.Forms.Form
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Bild online laden
    Dim oImg As Image = ImageFromWeb("http://www.vbarchiv.net/images/forum.gif")
 
    If oImg Is Nothing Then
      ' Falls Nothing zurückgegeben wurde...
      MsgBox("Bild nicht vorhanden oder Server nicht erreichbar!")
    Else
      ' ... andernfalls Bild im PictureBox-Control anzeigen
      PictureBox1.Image = oImg
    End If
  End Sub
  ' Bild von Webserver laden
  Public Function ImageFromWeb(ByVal sURL As String) As Image
    Try
      ' Web-Anfrage mit vorgegebener URL zur Bilddatei
      Dim oRequest As WebRequest = WebRequest.Create(sURL)
      oRequest.Method = "GET"
 
      ' Antwort unserer Anfrage...
      Dim oResponse As WebResponse = oRequest.GetResponse()
      Application.DoEvents()
 
      ' Stream-Objekt mit den Bilddaten erstellen
      Dim oStream As New StreamReader(oResponse.GetResponseStream())
 
      ' Bild aus dem Stream-Objekt in ein Image-Objekt kopieren
      Dim oImg As Image = Image.FromStream(oStream.BaseStream)
 
      ' Objekte zerstören
      oStream.Close()
      oResponse.Close()
 
      ' Image-Objekt zurückgeben
      Return oImg
 
    Catch ex As Exception
      ' Fehler: Nothing zurückgeben
      Return Nothing
    End Try
  End Function
End Class