Galerie

Impressum

Verantwortlicher für die Seite und den Inhalt :

Gabriel Thiel

Trentinostraße 3 / 4 / 1

A - 2441 Mitterndorf an der Fischa

Österreich

Haftungsausschuss & Datenschutz

Impressum

Zuerst erstelle eine Form, wobei das linke Element eine PictureBox mit dem Namen PictureBox1 ist und das rechte eine ListBox mit dem Namen ListBox1 ist.

 

 

Ersetze nun folgenden Code mit dem Bestehenden in deinem Form1.vb komplett:

 

' Es werden systemeigene Dienstverweise hinzugefügt

Imports System
Imports System.IO

Public Class Form1

    ' Hier wird der öffentliche Ordner Bilder/Beispielbilder als Ordnerpfad definiert

    Public Shared Pfad As String = "C:\Users\Public\Pictures\Sample Pictures\"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Beim Laden der Form wird das Verzeichnis sowie die Dateiliste(nur jpg) definiert

        Dim VerzInfo As DirectoryInfo = New DirectoryInfo(Pfad)
        Dim DateiInfos As FileInfo() = VerzInfo.GetFiles("*.jpg")

        'Jede Datei im Ordner wird als ein eigener Eintrag in der ListBox angezeigt

        For Each DateiAttr In DateiInfos

            ListBox1.Items.Add(DateiAttr.Name)

        Next


    End Sub

    Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged

        'Bei einer Änderung in der ListBox wird das dzt. ausgewählte Element als Bildname gesetzt

        Dim Bildname As String = Pfad & ListBox1.SelectedItem
        Dim Bild As Bitmap = New Bitmap(Bildname)

        'Die PictureBox wird dem Bild angepasst und das Bild für PictureBox definiert

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.Image = CType(Bild, Image)

    End Sub
End Class

 

Stelle vor dem Ausführen sicher, dass auf dem Pfad C:\Users\Public\Pictures\Sample Pictures\ Bilder hinterlegt sind - im Normalfall sind Beispielbilder vorhanden!

 

Viel Spaß beim Nachbauen und Weiterentwickeln !