vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Dateisystem · Ordner & Verzeichnisse   |   VB-Versionen: VB.NET28.01.04
Verzeichnisse im Treeview darstellen

Wie man unter VB.NET das veraltete DirListBox-Control mit wenig Aufwand ersetzen kann, erfahren Sie hier.

Autor:   Lars KonschakBewertung:     [ Jetzt bewerten ]Views:  32.189 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

VB.NET stellt keine Steuerelemente bereit, welches die DirListbox aus VB6 ersetzt. Ein Einbinden dieses alten Controls wäre desweiteren nicht wünschenswert. Wer weis, ob dieses in der Zukunft noch von VB.NET unterstüzt wird und ausserdem sieht dieses Control doch sehr verstaubt aus. Es ist aber gar nicht schwer, solch ein Control zu ersetzten. Um die DirListbox zu ersetzten, benötigen wir lediglich ein einfaches Treeview-Control.

Auf die Anzeige der entsprechenden Icons und die Bezeichnung der Laufwerke habe ich hier verzichtet (siehe: Icons der Standartverknüpfung; über das WMI-Objekt kann man z.B die Laufwerknamen ermitteln). Im Treeview werden die Verzeichnisse und die Laufwerke angezeigt. Desweiteren wird ein "+" Zeichen angezeigt, falls das Verzeichnis weitere Unterverzeichnisse enthält (das fehlte zum Beispiel bei der DirListbox).

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  Dim Drive As String
  Dim tn As TreeNode
 
  Dim Verzeichnis As IO.DirectoryInfo
 
  ' Wiedergabe der logischen Laufwerke des PCs
  For Each Drive In Environment.GetLogicalDrives
 
    ' Laufwerk wird als Rootknoten dem Treeview hinzugefügt
    tn = TreeView1.Nodes.Add(Drive)
 
    ' In der Tag-Eigenschaft kann man alle möglichen Daten 
    ' und Objekte speichern. Hier wäre z.B beim Erstellen
    ' eines Explorers der Pfad von Interesse, um z.B im 
    ' ListView die Daten anzuzeigen. Wir brauchen hier aber 
    ' die Pfadangabe für das spätere Hinzufügen von 
    ' Unterverzeichnisse im Treeview 
    tn.Tag = Drive
 
    ' Falls das Laufwerk Unterverzeichnisse besitzt, 
    ' soll das "+" Zeichen eingeblendet werden
    Try
      For Each Verzeichnis In New _
        IO.DirectoryInfo(Drive).GetDirectories
 
        ' Hinzufügen eines Dummyknotens
        tn.Nodes.Add(Verzeichnis.Name)
 
        ' Es reicht ein ermitteltes Unterverzeichnis 
        ' aus, um das  "+" zu erzeugen"
        Exit For
      Next
    Catch
    End Try
  Next
End Sub
Private Sub trvVerzeichnis_BeforeExpand( _
  ByVal sender As System.Object, _
  ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
  Handles TreeView1.BeforeExpand
 
  ' Bevor der Knoten expandiert, ermitteln wir den 
  ' Knoten. Wir können dann vorab alle Unterverzeichnisse
  ' und deren Unterverzeichnisse (es wird aber nur das 
  ' erste Unterverzeichnis eingelesen) über die Prozedur 
  ' Read_Directory einlesen. Beim anschliessenden Expandieren 
  ' des(Knoten) werden dann bei Vorhandensein von 
  ' Unterverzeichnissen die "+" 'Zeichen angezeigt.
 
  Dim tn As TreeNode
 
  tn = e.Node
  Read_Directory(tn)
End Sub
Private Sub Read_Directory(ByVal Knoten As TreeNode)
  ' Erstellen eines DirectoryInfo-Objektes, um 
  ' die Unterverzeichnisse einzulesen.
  ' Die benötigte Pfadangabe zum Erzeugen des Objekts 
  ' ermitteln wir aus der Tag-Eigenschaft des Knotens 
  ' (siehe Form1_Load). Wichtig ist, dass der Inhalt 
  ' der Tag-Eigenschaft erst mit der Methode CType in 
  ' den entsprechenden Typ konvertiert werden muss!!
  Dim Verzeichnis As New _
    IO.DirectoryInfo(CType(Knoten.Tag, String))
 
  Dim Unterverzeichnis As IO.DirectoryInfo
  Dim Dummyverzeichnis As IO.DirectoryInfo
 
  Dim tn, xn As TreeNode
 
  ' Ein Flackern des Treeview soll vermieden werden
  TreeView1.BeginUpdate()
 
  ' Der zuvor erzeugte Dummyknoten wird wieder entfernt, 
  ' da dieser beim Einlesen sonst doppelt vorhanden wäre
  Knoten.Nodes.Clear()
 
  Try
    Me.Cursor = Cursors.WaitCursor
 
    For Each Unterverzeichnis In Verzeichnis.GetDirectories
      tn = Knoten.Nodes.Add(Unterverzeichnis.Name)
      tn.Tag = Unterverzeichnis.FullName
 
      ' Falls das Unterverzeichnis weitere Unterverzeichnisse 
      ' besitzt, soll das "+" Zeichen eingeblendet werden
      Try
        For Each Dummyverzeichnis In New _
          IO.DirectoryInfo(Unterverzeichnis.FullName).GetDirectories
 
          ' Hinzufügen eines Dummyknotens
          tn.Nodes.Add(Verzeichnis.Name)
 
          ' Es reicht ein ermitteltes Unterverzeichnis 
          ' aus, um das  "+" zu erzeugen"
          Exit For
        Next
 
      Catch
      End Try
    Next
  Catch
  End Try
 
  TreeView1.EndUpdate()
  Me.Cursor = Cursors.Default
End Sub

Dieser Tipp wurde bereits 32.189 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel