Bildauflistung

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Bildauflistung

    Hallo,

    mal eine Frage, ich möchte mir ein Bildauflistungs-Programm erstellen, welches nach der Wahl des Ordners mit den beinhaltenden Dateien, diese alle "aufgenommen" werden und in einer PictureBox durchgeklickt werden können. Jetzt scheitert es allerdings an der Auflistung. Hoffe Ihr könnt mir helfen! :D

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    3. Public Class Form1
    4. Dim liste As New List(Of String)
    5. Dim Bilder_Zähler As Integer
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. For Each s As String In Directory.GetFiles("C:\Users\zeus\Desktop\Bilderordner")
    8. Select Case IO.Path.GetExtension(s).ToLower()
    9. Case ".jpg"
    10. liste.Add(s)
    11. Case ".png"
    12. liste.Add(s)
    13. Case ".bmp"
    14. liste.Add(s)
    15. Case Else
    16. End Select
    17. Next s
    18. End Sub
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. Bilder_Zähler = Bilder_Zähler + 1
    21. PictureBox1.Image = Image.FromFile(liste(Bilder_Zähler))
    22. If Bilder_Zähler = liste.Count - 1 Then
    23. Bilder_Zähler = 0
    24. End If
    25. End Sub
    26. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    So ists noch besser:

    VB.NET-Quellcode

    1. Dim dInfo As New System.IO.DirectoryInfo(TextBox1.Text)
    2. Dim Extensions As IEnumerable(Of String) = {".jpg", ".png", ".gif", ".bmp"}
    3. Dim Bilder As IEnumerable(Of Image) = dInfo.EnumerateFiles("*.*", IO.SearchOption.TopDirectoryOnly) _
    4. .Where(Function(fInfo) Extensions.Contains(fInfo.Extension)) _
    5. .Select(Function(fInfo) Image.FromFile(fInfo.FullName))

    Oder auch als Einzeiler :D:

    VB.NET-Quellcode

    1. Dim Bilder As IEnumerable(Of Image) = (New IO.DirectoryInfo(TextBox1.Text)).EnumerateFiles("*.*", IO.SearchOption.TopDirectoryOnly).Where(Function(fInfo) {".jpg", ".png", ".gif", ".bmp"}.Contains(fInfo.Extension)).Select(Function(fInfo) Image.FromFile(fInfo.FullName))

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nafets3646“ ()