Contextmenü

  • VB.NET
  • .NET 5–6

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Contextmenü

    Hallo liebe Community,

    habe folgendes Problem dass ich nicht lösen kann

    Von meinem IMAP-Postfach werden sämtliche Ordner und Unterordner abgerufen und in ein ToolStripMenuItem gefüllt.

    Bei Rechtsklick werden mir zunächst die Ordner und deren Unterordner angezeigt.
    Nur wenn ein Unterordner auch einen Unterordner hat, wird dieser als Unterordner vom Hauptordner angezeigt.

    Zur Verdeutlichung:

    Gewünscht ist folgende Auflistung

    Hauptordner 1
    Unterordner 1.1
    Unter-Unterordner 1.1.1

    Stattdessen wird aber angezeigt

    Hauptordner 1
    Unterordner 1.1
    Unterordner 1.1.1 (Falsch)

    VB.NET-Quellcode

    1. Private Sub Add_contextmenu()
    2. dgvEmails.ContextMenuStrip = context_menu
    3. dgvEmails.ContextMenuStrip = context_menu
    5. tag_parent = 0
    6. tag_sub = 0
    8. For i = 0 To all_folders_array.Count - 1
    9. folder = all_folders_array(i)
    10. If Not all_folders_array(i).Contains("/") Then
    11. tag_parent += 1
    12. mainfolder = New ToolStripMenuItem(folder)
    13. mainfolder.Tag = tag_parent
    14. remove_to_folder.DropDownItems.Add(mainfolder)
    15. Else
    16. Dim folders2 = Contextmenu_add_subfolders(folder)
    17. End If
    18. Next
    19. End Sub
    21. Function Contextmenu_add_subfolders(folder As String) As String
    22. Dim Fullpath As String = folder
    23. Dim count_folder As Integer = Fullpath.Count(Function(c) c = "/"c) + 1
    24. Dim parts() As String = Fullpath.Split("/"c)
    25. Dim search_tag As String = ""
    26. Dim Child_folder As String = parts(count_folder - 1)
    28. If count_folder = 2 Then
    29. search_tag = tag_parent.ToString
    30. Else
    31. search_tag = "S" & tag_sub.ToString
    32. End If
    33. DurchlaufeContextMenuItems(context_menu, search_tag, Child_folder)
    34. End Function
    36. Private Sub DurchlaufeContextMenuItems(dropDownMenu As ToolStripDropDownMenu, search_tag As String, Child_folder As String)
    37. For Each item As ToolStripItem In dropDownMenu.Items
    38. If item.Tag IsNot Nothing AndAlso item.Tag.ToString() = search_tag Then
    39. Dim child As New ToolStripMenuItem(Child_folder)
    40. tag_sub += 1
    41. child.Tag = "S" & tag_sub
    42. mainfolder.DropDownItems.Add(child)
    43. AddHandler child.Click, AddressOf MenuItem_MouseClick
    44. Exit For
    45. End If
    47. If TypeOf item Is ToolStripDropDownItem Then
    48. Dim dropDownItem As ToolStripDropDownItem = CType(item, ToolStripDropDownItem)
    49. DurchlaufeContextMenuItems(dropDownItem.DropDown, search_tag, Child_folder)
    50. End If
    51. Next
    52. End Sub

    Vermute in der Sub "DurchlaufeContextMenuItems" enthält der rekursive Aufruf einen Fehler.

    Das selbe habe ich mit Treeview gemacht und dort werden die Nodes richtig dargestellt.
    Deshalb vermute ich beim rekursiv-Aufruf den Fehler.

    Bin für jede Hilfe dankbar.

    CodeTags gesetzt ~VaporiZed

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

    Willkommen im Forum.

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Contextmenu_add_subfolders ist z.B. als Function deklariert, gibt aber im Methodenkörper überhaupt keinen Wert an den Aufrufer zurück.

    VB.NET-Quellcode

    1. Dim dropDownItem As ToolStripDropDownItem = CType(item, ToolStripDropDownItem)
    2. DurchlaufeContextMenuItems(dropDownItem.DropDown, search_tag, Child_folder)
    dropDownItem.DropDown ist vom Typ ToolStripDropDown, DurchlaufeContextMenuItems will aber ein ToolStripDropDownMenu. Das ist offiziell erstmal inkompatibel.

    Wie und wo sind tag_parent, tag_sub, mainfolder, all_folders_array, folder und remove_to_folder deklariert?

    Sobald das beseitigt und geklärt ist, ist eine Fehlerfindung (besser) möglich.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Alle vier sind wie folgt deklariert.

    Private tag_parent, tag_sub As Integer
    Private mainfolder As New ToolStripMenuItem
    Private all_folders_array As New ArrayList
    Private folder As String

    Die Function Contextmenu_add_subfolders habe ich zu private sub geändert, die 16. Zeile lautet nun >> Contextmenu_add_subfolders(folder)

    jo, wennde damit fertig bist, müssteste dich mit Rekursion beschäftigen.
    dazu habich im Tutorial-Bereich ein umfangreiches Tut verzapft, mit viele Beispiele. Unter anderem baue ich einen Menü-Baum aus einem Treeview auf - statt des Treeviews müssteste halt deine Imap-Ordnerstruktur hernemen

    Tree-Übungen - Rekursion Abschnitt "Rekursiver Aufbau"

    Aber wie gesagt: erstmal die empfohlenen einstellungen...

    Nachdem ich Option Strict auf On gesetzt und die Korrekturen gemacht habe sieht der Code nun wie folgt aus. Der einzige Fehler den ich nicht beseitigen konnte ist die Zeile
    DurchlaufeContextMenuItems(dropDownItem.DropDown, search_tag, Child_folder)

    VB.NET-Quellcode

    1. Private Sub Add_contextmenu()
    2. dgvEmails.ContextMenuStrip = context_menu
    4. tag_parent = 0
    5. tag_sub = 0
    7. For i = 0 To all_folders_array.Count - 1
    9. folder = all_folders_array(i).ToString
    11. If Not String.IsNullOrEmpty(folder) AndAlso Not folder.Contains("/") Then
    12. tag_parent += 1
    13. mainfolder = New ToolStripMenuItem(folder)
    14. mainfolder.Tag = tag_parent
    15. remove_to_folder.DropDownItems.Add(mainfolder)
    16. Else
    17. 'Dim folders2 = Contextmenu_add_subfolders(folder)
    18. Contextmenu_add_subfolders(folder)
    19. End If
    20. Next
    21. End Sub
    23. Private Sub Contextmenu_add_subfolders(folder As String)
    24. Dim Fullpath As String = folder
    25. Dim count_folder As Integer = Fullpath.Count(Function(c) c = "/"c) + 1
    26. Dim parts() As String = Fullpath.Split("/"c)
    27. Dim search_tag As String = ""
    28. Dim Child_folder As String = parts(count_folder - 1)
    30. If count_folder = 2 Then
    31. search_tag = tag_parent.ToString
    32. Else
    33. search_tag = "S" & tag_sub.ToString
    34. End If
    35. 'DurchlaufeContextMenuItems(context_menu, search_tag, Child_folder)
    36. End Sub
    38. Private Sub DurchlaufeContextMenuItems(dropDownMenu As ToolStripDropDownMenu, search_tag As String, Child_folder As String)
    39. For Each item As ToolStripItem In dropDownMenu.Items
    40. If item.Tag IsNot Nothing AndAlso item.Tag.ToString() = search_tag Then
    41. Dim child As New ToolStripMenuItem(Child_folder)
    42. tag_sub += 1
    43. child.Tag = "S" & tag_sub
    44. mainfolder.DropDownItems.Add(child)
    45. AddHandler child.Click, AddressOf MenuItem_MouseClick
    46. Exit For
    47. End If
    49. If TypeOf item Is ToolStripDropDownItem Then
    50. Dim dropDownItem As ToolStripDropDownItem = CType(item, ToolStripDropDownItem)
    51. DurchlaufeContextMenuItems(dropDownItem.DropDown, search_tag, Child_folder)
    52. End If
    53. Next
    54. End Sub


    CodeTags gesetzt ~VaporiZed

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

    ArrayList? Was steckt tatsächlich drin? Strings? Dann wäre ne List(Of String) besser, da typisiert.
    Und was ist nu remove_to_folder?
    Beim jetzigen Code wird DurchlaufeContextMenuItems überhaupt nicht mehr von außen aufgerufen.
    Du könntest probieren, ob das hier klappt:

    VB.NET-Quellcode

    1. DurchlaufeContextMenuItems(DirectCast(dropDownItem.DropDown, ToolStripDropDownMenu), search_tag, Child_folder)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Add_contextmenu() hatte ich verkürzt veröffentlicht, unten die Langversion.

    remove_to_folder ist ein dropdownitem in der die Unterverzeichnisse reinkommen.
    Zeile 35 wurde nur temporär auskommentiert.

    Deinen Vorschlag mit DirectCast habe ich eingefügt, aber immernoch das selbe Ergebnis.

    In der Arraylist sind alle Verzeichnisse im Stringformat eingetragen, z.B.
    INBOX
    INBOX/Ordner
    INBOX/Ordner2/Ordner3
    usw.

    Ziel ist es, INBOX/Ordner1/Ordner2/Ordner3 im Contextmenü anzuzeigen.
    Es wird aber so dargestellt als ob Ordner3 ein Unterordner von INBOX ist.

    Mit den Treeview-Nodes klappt es einwandfrei, nur im Contextmenü will es nicht klappen.

    VB.NET-Quellcode

    1. Private Sub Add_contextmenu()
    2. Dim deleteOption As New ToolStripMenuItem("Löschen")
    3. AddHandler deleteOption.Click, AddressOf Delete_message
    4. context_menu.Items.Add(deleteOption)
    6. Dim remove As New ToolStripMenuItem("Verschieben")
    7. context_menu.Items.Add(remove)
    9. Dim remove_to_folder As New ToolStripMenuItem("in Ordner")
    10. remove.DropDownItems.Add(remove_to_folder)
    12. dgvEmails.ContextMenuStrip = context_menu
    14. tag_parent = 0
    15. tag_sub = 0
    17. For i = 0 To all_folders_array.Count - 1
    19. folder = all_folders_array(i).ToString
    21. If Not String.IsNullOrEmpty(folder) AndAlso Not folder.Contains("/") Then
    22. tag_parent += 1
    23. mainfolder = New ToolStripMenuItem(folder)
    24. mainfolder.Tag = tag_parent
    25. remove_to_folder.DropDownItems.Add(mainfolder)
    26. Else
    27. Contextmenu_add_subfolders(folder)
    28. End If
    29. Next
    30. End Sub


    Code-Tags eingefügt. ~Thunderbolt

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

    VaporiZed schrieb:

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden.
    zu den empfohlenen Einstellungen täte ich hinzufügen, den GeneralImport auf System.Collections ebenfalls rauszuwerfen.
    Da ist auch nur müll drin, wie etwa die olle ArrayList.
    Verwende stattdessen List(Of T).

    Ansonsten ist der neue Code nicht lesbar (bzw ich bin zu faul, mir das anzutun) - bitte mit den Forum-Mitteln formatieren.

    @Cem76 Willkommen im Forum.
    bitte mit den Forum-Mitteln formatieren.
    Das ist ein sehr wichtiger Hinweis, einige dienstältere Forum-Mitglieder scxhauen sich den Code gar nicht erst an, wenn er nicht formatiert ist.
    Tue dies (und editiere Deine obigen Posts entsprechend):
    Markiere den Code und drücke den VB.NET-Button über dem Post-Edit-Feld:

    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!

    FormFollowsFunction schrieb:

    als "Erledigt" makiert
    Der Kollege hat 4 Posts, das muss er noch lernen. ;)
    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!