Treeview

  • VB.NET

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

    Treeview

    Grüßt euch,

    ich bin zu euch gestoßen, da ich Hilfe bei einem kleinen VB Projekt brauche.

    Das Projekt soll Bilder aus einem bestimmten Verzeichnis darstellen und per Treeview eine Übersicht über bestehende Ordner ermöglichen.

    Das Problem ist, das Projekt wird auf einem Wechseldatenträger platziert sein genauso wie die Verzeichnisse mit den entsprechenden Bildern.

    Nun die Frage:

    Wie kann ich automatisch einen Verzeichnisbaum erstellen, der mir alle Ordner ab einem bestimmten Ordner anzeigt.

    Bsp: F:\NamedesProjekts\Bin\Debug\Hauptverzeichnis\

    -Hauptverzeichnis

    --Unterverzeichnis1

    --Unterverzeichnis2



    Leider habe ich keine Ahnung und noch keinen Quellcode um das zu bewerkstelligen.

    Bin für jede Hilfe dankbar...

    Erstmal meinem Dank für die Antwort. Mittlerweile sieht der Quellcode wie folgt aus. Er zeigt das aktuelle Verzeichnis an und die bestehenden Unterordner.

    Es sollen allerdings noch die bestehenden Dateien des jeweiligem Unterordners in einer Listbox angezeigt werden, damit man sie von dort aus in einer Imagebox aufrufen kann.

    Hat wer eine Idee?

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Hauptfeld
    5. Dim aktuellesverzeichnis As TreeNode
    7. Private Sub Hauptfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. Me.tvhaupt.Nodes.Add(Environment.CurrentDirectory)
    9. End Sub
    11. Private Sub AllSubDirectories(ByVal node As TreeNode)
    12. Dim arrDirInfo() As DirectoryInfo
    13. Dim dirinfo As DirectoryInfo = _
    14. New DirectoryInfo(node.FullPath)
    15. Try
    16. arrDirInfo = dirinfo.GetDirectories()
    17. Catch
    18. Return
    19. End Try
    20. For Each info As DirectoryInfo In arrDirInfo
    21. node.Nodes.Add(info.Name)
    22. Next
    23. End Sub
    25. Private Sub tvhaupt_BeforeExpand(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs) Handles tvhaupt.BeforeExpand
    26. For Each node As TreeNode In e.Node.Nodes
    27. AllSubDirectories(node)
    28. Next
    29. End Sub
    31. Private Sub tvhaupt_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles tvhaupt.AfterSelect
    32. If e.Node.Nodes.Count = 0 Then
    33. AllSubDirectories(e.Node)
    34. End If
    35. End Sub
    37. Private Sub btnend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnend.Click
    38. End
    39. End Sub
    40. End Class


    Edit by ErfinderDesRades: Bitte VB-Tag richtig benutzen
    --> VB-Tag eingefügt.

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

Facebook
Telefonspende