ToolStripDropDown Hinzufügen von MenuItem aus Pfad

Sam85 · 27. Dezember 2018, 09:36

Guten Morgen,

erstmal nachträglich frohe Weihnachten

und dann meine Frage:

In einem ToolStripDropDown werden Items hinzugefügt. Nun wollte ich, dass auch aus dem Pfad die Unterordner, als Ordner (bzw. MenuItem) in den DropDown hinzugefügt werden. Hoffe, dass annähernd verständlich.
Wie muss ich da vorgehen? Muss erst geprüft werden, ob es Unterverzeichnisse gibt und dann werden diese erstellt? Und anschließend die Items verteilt?

Spoiler anzeigen

VB.NET-Quellcode

Public Class FileObject
Inherits ToolStripMenuItem
Public Property Path As String
End Class
Dim str As String = "\\rs-win1\ablage\ISO\Formulare\1_Allgemein\3_Hinweislisten"
Private Sub fo_click(ByVal sender As Object, ByVal e As EventArgs)
Dim tmp As FileObject = CType(sender, FileObject)
Process.Start(tmp.Path & "\" & tmp.Name)
End Sub
Private Sub TSDD_Hinweislisten_DropDownOpening(sender As Object, e As EventArgs) Handles TSDD_Hinweislisten.DropDownOpening
Dim di As DirectoryInfo = New DirectoryInfo(str)
Dim fi As FileInfo()
fi = di.GetFiles("*.pdf", SearchOption.AllDirectories)
Dim fo As FileObject = Nothing
TSDD_Hinweislisten.DropDownItems.Clear()
For i As Integer = 0 To fi.Length - 1
fo = New FileObject()
fo.Name = fi(i).Name
fo.Text = Path.GetFileNameWithoutExtension(fi(i).Name)
fo.Path = fi(i).DirectoryName
With TSDD_Hinweislisten
.DropDownItems.Add(fo)
.DropDownDirection = ToolStripDropDownDirection.AboveRight
End With
AddHandler fo.Click, AddressOf fo_click
Next i
Dim liste As Object = TSDD_Hinweislisten.DropDownItems.Cast(Of ToolStripMenuItem).OrderBy(Function(n) n.Text).ToArray
TSDD_Hinweislisten.DropDownItems.AddRange(liste)
End Sub

Freue mich auf eine Rückmeldung.

ErfinderDesRades · 27. Dezember 2018, 11:14

Sam85 schrieb:

Hoffe, dass annähernd verständlich.

naja, man ahnt, was du willst, aber wenn du eine Beschreibung unterr Verwendung korrekter Begriffe verfassen könntest, dann könntest du das auch programmieren.
Also dieses hier:

Nun wollte ich, dass auch aus dem Pfad die Unterordner, als Ordner (bzw. MenuItem) in den DropDown hinzugefügt werden.

Was ist: "dem Pfad"?
"als Ordner (bzw. MenuItem)" Wassnu: Ordner oder MenuItem?

Muss erst geprüft werden, ob es Unterverzeichnisse gibt und dann werden diese erstellt?

Hä? Wenn es Unterverzeichnisse gibt, kannst du sie doch nicht mehr erstellen - dann sind sie ja schon da.
Was meinst du mit "erst"?

Versuch mal eine Beschreibung, die beschreibt, was genau wann genau passieren soll.

Sam85 · 27. Dezember 2018, 11:41

@ErfinderDesRades
Gut dann versuche ich es mal besser...

Es werden PDF Dokumente aus einem Verzeichnisstamm Dim str As String = "\\rs-win1\ablage\ISO\Formulare\1_Allgemein\3_Hinweislisten" in das ToolStripDropDown eingefügt. Dabei werden alle PDF Dokumente, unabhängig ob Haupt- oder Unterverzeichnis, zusammen eingefügt.

Nun möchte ich, dass die PDF Dokumente aus den Unterverzeichnissen, nicht mit denen aus dem Hauptverzeichnis zusammengetragen werden.

Wie muss ich dabei vorgehen? Aktuell durchlaufe ich den gesamten Verzeichnisstamm fi = di.GetFiles("*.pdf", SearchOption.AllDirectories) und gebe anschließend alles, was dem Kriterium entspricht, wieder aus. Muss ich demnach ein weiteres FileObject in die Schleife implementieren, um den laufenden Verzeichnisstamm des, durch die Schleife erfassten Dokumentes, als MenuItem in das ToolStripDropDown hinzuzufügen und dort, das aktuelle Dokument in der Schleife hinzuzufügen?

VB.NET-Quellcode

For i As Integer = 0 To fi.Length - 1
fo = New FileObject()
fo.Name = fi(i).Name
fo.Text = Path.GetFileNameWithoutExtension(fi(i).Name)
fo.Path = fi(i).DirectoryName
With TSDD_Hinweislisten
.DropDownItems.Add(fo)
.DropDownDirection = ToolStripDropDownDirection.AboveRight
End With
AddHandler fo.Click, AddressOf fo_click
Next i

ErfinderDesRades · 27. Dezember 2018, 15:37

SearchOption.AllDirectories ist nicht wirklich gut, weil das liefert ja keinen verzeichnisbaum, sondern nur eine Liste von Dateien.
Um den Verzeichnisbaum zu durchlaufen musst du eine rekursive Funktion proggen, die von jedem Verzeichnis die Unterverzeichnisse ausliest.
In der Methode kann man Code unterbringen, der paralell dazu einen entsprechenden MenüBaum aufbaut.
Damit wäre der Verzeichnisbaum in einem MenüBaum abgebildet.

Das kann am Ende aber ziemlich unbenutzbar werden - stell dir vor, du stösst auf ein Verzeichnis mit 100 Unterverzeichnissen.
Ein Menü mit 100 UnterMenüs ist unbrauchbar, weil bildschirm zu klein.

Dasselbe Problem, wenn ein Verzeichnis 100 pdfs enthält.

Oder auch nur 30.

Nochmal zu Rekursion: Ist dir der Begriff bekannt?
Das ist ein pfiffiger Algorithmus, der in Abwandlungen vergleichsweise häufig auftritt.
Leider muss mans immer wieder neu implementieren (anders als etwa den Sortier-Algo) und den Erfordernissen anpassen.

Sam85 · 27. Dezember 2018, 16:29

@ErfinderDesRades

Sind diese Quellen zur Rekursion geeignet? Link 1, Link 2, Link 3, Link 4

Ja ich verstehe dein Bedenken bzgl. der n-ten Anzahl von Verzeichnissen, die Visuell nicht mehr sichtbar sind. Im Grunde obliegt mir die Anzahl der Verzeichnisse, somit wäre es zumindest für meine Zwecke in Ordnung.
Was wäre deine Empfehlung bzw. eine Sinnvolle Lösung? Vermutlich ist es besser direkt ein Filter zu erstellen, um lediglich das wesentlich sichtbar zu machen ggf. mit DataSet?

Wollte ich mein Vorhaben nun aber so abschließen wie geplant, unabhängig von der Sinnhaftigkeit...wie wäre dann die Sinnvolle Gestaltung einer Rekursiven Funktion?

Durchlaufen der Verzeichnisse
1. Wurde ein Unterverzeichnis gefunden, MenuItem erstellen
Hinzufügen der Items in das jeweilige MenuItem

ErfinderDesRades · 27. Dezember 2018, 18:16

Sam85 schrieb:

Sind diese Quellen zur Rekursion geeignet?

eher nicht.
Dort wird das Grundprinzip gezeigt, anhand eines mathematischen Problems.
Dein Problem ist aber die rekursive Traversion durch einen Datenbestand (also das Abklappern aller Nodes in einem Baum).
vlt. googeln: "rekursive Traversion".
oder "directory rekursiv durchsuchen" oder sowas.

RodFromGermany · 27. Dezember 2018, 18:37

@Sam85 Meinst Du so was: Ordnerpfad Visuell Darstellen (Breakcrumb)

Sam85 · 28. Dezember 2018, 08:31

@ErfindesDesRades
dann ist dieser Link

besser für die Rekursive Traversion?

@RodFromGermany
nicht unbedingt, es geht mir eher um die Darstellung der einzelnen Dokumente, gegliedert nach den entsprechenden Unterverzeichnis.
Wie auf dem Picture sieht es aktuell aus aber die Verzeichnis Struktur sieht aus wie auf Picture2 und diese Struktur wollte ich umsetzen.

RodFromGermany · 28. Dezember 2018, 08:46

@Sam85 So was wie Salamander oder Total Commander?

ErfinderDesRades · 28. Dezember 2018, 09:54

Sam85 schrieb:

dann ist dieser Link besser für die Rekursive Traversion?

Jo, insbesondere weil der Abschnitt "Struktur-Aufbau" ist genau dein Vorhaben: Du willst anhand des baumartigen Verzeichnis-Struktur einen MenüItem-Struktur aufbauen.
Ich hätte dir das Tut auch selbst empfohlen, aber ich nahm an, du schreckest vor c# zurück.

Sam85 · 28. Dezember 2018, 16:32

@ErfinderDesRades

an und für sich bin ich dem Gegenüber aufgeschlossen, nur mangelt es mir noch am Verständnis und den Basics...bin leider kein Programmierer, noch Vollzeit damit beschäftigt. Aber interessant finde ich es, daher anschauen werde ich es mir und sollten noch fragen sein, melde ich mich.

@RodFromGermany
Hmm nein nicht so umfangreich

ich denke für jemanden der sich auskennt, ist mein Vorhaben eher eine einfache Sache. Einfach ein DropDown Button (wie aktuell auch) nur mit Unterverzeichnis Struktur.

ErfinderDesRades · 28. Dezember 2018, 19:06

Sam85 schrieb:

ich denke für jemanden der sich auskennt, ist mein Vorhaben eher eine einfache Sache.

Naja, so ein oder zwei Stündchen sitzt man trotzdem davor. Wie gesagt: Bei Rekursion ist jeder Algo eine Neu-Entwicklung - auch wenn das Grundprinzip immer dasselbe ist.
Und mit den MenuItems muss man auch einiges herumprobieren - v.a. die Resourcenbereinigung - dynamische MenuItems macht man ja nicht alle Tage.

Ich hab mal was gebastelt, bin neugierig, ob du ühaupt was mit anfangen kannst - weil ich hab ganz unbedarft auch anonyme Methoden verwendet, weil das bei Rekursion besonders günstig ist.

Spoiler anzeigen

VB.NET-Quellcode

Private Sub Mainmenu_Click(sender As Object, e As EventArgs) Handles btBuildFileMenu.Click, btRemoveFileMenu.Click, btFilesystem.Click
Select Case True
Case sender Is btBuildFileMenu : BuildFileMenu()
Case sender Is btRemoveFileMenu : RemoveFileMenu()
Case sender Is btFilesystem
End Select
End Sub
Private Sub FileMenu_Click(sender As Object, e As EventArgs)
Dim itm = DirectCast(sender, ToolStripMenuItem)
Dim di = TryCast(itm.Tag, DirectoryInfo)
If di.NotNull Then
Msg("Directory '", di.Name, "' geklickst")
Return
End If
Dim fi = DirectCast(itm.Tag, FileInfo)
Msg(fi.FullName, Lf, " geklickst")
End Sub
Private Sub BuildFileMenu()
Dim insertMenuItem As Func(Of ToolStripItemCollection, FileSystemInfo, Integer, ToolStripMenuItem) = _
Function(itms, fsi, index)
Dim itm = New ToolStripMenuItem(fsi.Name) With {.Tag = fsi}
AddHandler itm.Click, AddressOf FileMenu_Click
itms.Insert(index, itm)
Return itm
End Function
Dim recurse As Action(Of ToolStripItemCollection, DirectoryInfo()) = _
Sub(itms, dis)
For Each di In dis
For Each fi In di.GetFiles
insertMenuItem(itms, fi, itms.Count)
Next
Dim itm = insertMenuItem(itms, di, 0)
recurse(itm.DropDownItems, di.GetDirectories)
Next
End Sub
recurse(btFilesystem.DropDownItems, {New DirectoryInfo("..\..\..")})
End Sub
Private Sub RemoveFileMenu()
While btFilesystem.DropDownItems.Count > 0
btFilesystem.DropDownItems(btFilesystem.DropDownItems.Count - 1).Dispose()
End While
End Sub

ToolStripDropDown Hinzufügen von MenuItem aus Pfad

ToolStripDropDown Hinzufügen von MenuItem aus Pfad

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben