Bild Programm aus Datei

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von PSYCHO3399.

    Bild Programm aus Datei

    Hallo,
    Ich arbeite gerade an einem Programm dass Bildpfade aus einer Datei (z.B. *.txt) ausliest und sie mir dann in einer Picturebox ausgiebt.
    Wie krieg ich das hin das nach jedem Mausklick die nächste zeile ausgelesen wird. Als hier mal wie es in der Datei aussehen soll:

    C:\Bilder\1.png
    C:\Bilder\2.png
    C:\Bilder\3.png
    C:\Bilder\4.png
    C:\Bilder\5.png
    end ---> Hier wird angezeigt dass es vorbei ist und das Programm schließt sich danach

    Also kann mir einer helfen?

    Alles auslesen mit IO.File.ReadAllLines(path) und in einem IEnumarable(Of String) (eine Subklasse davon) speichern. Dann einen globalen Integer index haben, der sich bei jedem Mausclick inkremntiert. Außerdem bei Mausclick nächstes Item als ImageLocation der PB zuweisen.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    @ThePlexian Jou.
    @PSYCHO3399 so etwa? ButtonClick statt MouseClick sollte Dich nicht stören.
    Wichtig ist, dass Du beim Runklickern ohne Daten keine Exception auslöst.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private myFiles() As String
    3. Private myIndex As Integer
    5. ' Dateien einlesen
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. Using dlg As New OpenFileDialog
    8. dlg.Filter = "Bilder|*.png;*.jpg;*.bmp|alle Dateien|*.*"
    9. dlg.Multiselect = True
    10. If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
    11. Return
    12. End If
    13. myFiles = dlg.FileNames
    14. myIndex = 0
    15. End Using
    16. End Sub
    18. ' nächstes Bild anzeigen
    19. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    20. ' Test auf Daten vorhanden
    21. If myFiles Is Nothing OrElse myFiles.Length = 0 Then
    22. MessageBox.Show("nix da")
    23. Return
    24. End If
    26. ' Test auf letzten Index
    27. If myIndex = myFiles.Length Then
    28. MessageBox.Show("alle")
    29. Me.Close()
    30. Return
    31. End If
    33. PictureBox1.ImageLocation = myFiles(myIndex)
    34. myIndex += 1
    35. End Sub
    36. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende