Ansprechen aller Contols in einem ToolStropMenu

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Ansprechen aller Contols in einem ToolStropMenu

    Hallo,

    wie der Titel schon sagt, möchte ich alle Controls in einem Toolstripmenu ändern. Dies gelingt mir bis auf die MenuItem's.

    VB.NET-Quellcode

    1. Dim TooLMenueEintrag As ToolStripDropDownButton
    2. For Each Toolitem As System.Windows.Forms.ToolStripItem In Me.ToolStrip_Oben.Items
    5. With Toolitem
    6. .BackColor = Color.Blue
    7. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    8. End With
    10. If TypeOf Toolitem Is ToolStripDropDownButton Then
    12. TooLMenueEintrag = New ToolStripDropDownButton
    13. TooLMenueEintrag.Name = Toolitem.Name
    15. For Each SubToolItem As ToolStripMenuItem In TooLMenueEintrag.DropDownItems
    16. ' Hier passiert nichts
    17. With Toolitem
    18. .BackColor = Color.Blue
    19. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    20. End With
    21. Next
    23. End If
    27. Next
    Gruß Markus

    Danke, habe den Fehler gesehen aber nach der Änderung tut sich leider immer noch nichts.

    VB.NET-Quellcode

    1. For Each SubToolItem As ToolStripMenuItem In TooLMenueEintrag.DropDownItems
    2. ' Hier passiert nichts
    3. With SubToolItem
    4. .BackColor = Color.Blue
    5. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    6. End With
    7. Next
    Gruß Markus

    hmm,
    der ToolStripDropDownButton (Name Menue) hat mehrere ToolStripMenuItem, die wiederum weitere ToolStripMenuItem enthalten.
    Der Code ändert den ToolStripDropDownButton, doch alles was in ihm enthalten ist (ToolStripMenuItem) wird durch den Code nicht angesprochen.
    Gruß Markus

    Jo, so ein Menü ist eine baumartige STruktur.

    Alle Knoten eines Baumes besuchen kann man mit einer rekursiven Methode.
    Also die Methode wird mit einer Liste von MenüItem aufgerufen, geht alle Items durch, macht was mit denen, und holt sich aus jedem Item die UnterItems, und ruft sich dann selbst auf, mit diesen UnterItems.

    Hallo, rekursiv ist mir schon klar, aber soweit komme ich gar nicht. Habe mal die Fehler bzw. Mängel im Code grün ausgewiesen

    VB.NET-Quellcode

    1. Private TS_Control As System.Windows.Forms.Control
    2. Private TS_Hauütelemente As System.Windows.Forms.ToolStripItem
    3. Private TS_Label As System.Windows.Forms.ToolStripLabel
    4. Private TS_DDButton As System.Windows.Forms.ToolStripDropDownButton
    5. Private TS_MenueItem As System.Windows.Forms.ToolStripMenuItem
    6. Public Sub SystemToolstrip_Formatieren(ByVal SysToolStrip As System.Windows.Forms.ToolStrip)
    8. With SysToolStrip
    9. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    10. End With
    13. For Each Me.TS_Hauütelemente In SysToolStrip.Items
    15. With Me.TS_Hauütelemente
    16. .BackColor = SystemToolStripFarbe
    17. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    18. ' Hintergrundfarbe der Label im ToolStripMenu ändern sich nicht
    19. End With
    21. If TypeOf Me.TS_Hauütelemente Is System.Windows.Forms.ToolStripDropDownButton Then
    22. Me.TS_DDButton = New System.Windows.Forms.ToolStripDropDownButton
    23. Me.TS_DDButton.Name = Me.TS_Hauütelemente.Name
    24. MessageBox.Show(Me.TS_DDButton.Name) ' Der korrekte Name wird angezeigt
    26. For Each Me.TS_MenueItem In TS_DDButton.DropDownItems
    27. MessageBox.Show(Me.TS_MenueItem.Name) ' Hier wird nichts angezeigt, obwohl einige Einträge vorhanden sind
    28. Next
    30. End If
    32. Next
    33. End Sub
    Gruß Markus

    VB.NET-Quellcode

    1. .BackColor = SystemToolStripFarbe
    Hast Du da mal Color.Green oder so probiert?

    VB.NET-Quellcode

    1. For Each Me.TS_MenueItem In TS_DDButton.DropDownItems
    2. MessageBox.Show(Me.TS_MenueItem.Name) ' Hier wird nichts angezeigt, obwohl einige Einträge vorhanden sind
    3. Next
    For Each erzeugt eine lokale Variable, mach das mal ohne Me.
    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!

    Zu 1) Mit ändern der Backcolor-Zuweisung auf Color.green ändert sich nichts
    Zu 2) Lasse ich me. weg, dann wird die Variable grün mit dem Hinweis: Der Type für die Variable wird nicht abgleitet, da er an ein Feld in einem einschließenden Bereich gebunden ist ....
    Gruß Markus

    Danke für die neue Information, aber es bleibt wie es ist

    VB.NET-Quellcode

    1. Private TS_Control As System.Windows.Forms.Control
    2. Private TS_Hauptelemente As System.Windows.Forms.ToolStripItem
    3. Private TS_Label As System.Windows.Forms.ToolStripLabel
    4. Private TS_DDButton As System.Windows.Forms.ToolStripDropDownButton
    5. Private TS_MenueItem As System.Windows.Forms.ToolStripMenuItem
    6. Public Sub SystemToolstrip_Formatieren(ByVal SysToolStrip As System.Windows.Forms.ToolStrip)
    8. With SysToolStrip
    9. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    10. End With
    13. For Each Me.TS_Hauptelemente In SysToolStrip.Items
    15. With Me.TS_Hauptelemente
    16. .BackColor = SystemToolStripFarbe
    17. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    18. ' Hintergrundfarbe der Label im ToolStripMenu ändern sich nicht
    19. End With
    21. If TypeOf TS_Hauptelemente Is System.Windows.Forms.ToolStripDropDownButton Then
    22. TS_DDButton = New System.Windows.Forms.ToolStripDropDownButton
    23. TS_DDButton.Name = TS_Hauptelemente.Name
    24. MessageBox.Show(TS_DDButton.Name) ' Der korrekte Name wird angezeigt
    26. For Each BS_MenueItem As System.Windows.Forms.ToolStripMenuItem In TS_DDButton.DropDownItems.OfType(Of ToolStripMenuItem)()
    27. MessageBox.Show(BS_MenueItem.Name) ' Hier wird nichts angezeigt, obwohl einige Einträge vorhanden sind
    28. Next
    30. End If
    32. Next
    35. End Sub
    Gruß Markus

    Nun funktioniert die Geschichte, bis auf den Backcolor der Label (verstehe ich nicht)

    Hier nochmal der gesamte Code
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private TS_Control As System.Windows.Forms.Control
    2. Private TS_Hauptelemente As System.Windows.Forms.ToolStripItem
    3. Private TS_Label As System.Windows.Forms.ToolStripLabel
    4. Private TS_Button As System.Windows.Forms.ToolStripButton
    5. Private TS_DDButton As System.Windows.Forms.ToolStripDropDownButton
    6. Private TS_MenueItem As System.Windows.Forms.ToolStripMenuItem
    7. Private TS_SubMenueItem As System.Windows.Forms.ToolStripMenuItem
    9. Public Sub SystemToolstrip_Formatieren(ByVal SysToolStrip As System.Windows.Forms.ToolStrip)
    11. For Each Me.TS_Label In SysToolStrip.Items.OfType(Of ToolStripLabel)()
    12. With Me.TS_Label
    13. .Text = TS_Label.Name ' Wird reingeschrieben
    14. .BackColor = SystemToolStripFarbe ' Funktioniert nicht
    15. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    16. End With
    17. Next
    19. For Each Me.TS_Button In SysToolStrip.Items.OfType(Of ToolStripButton)()
    20. With Me.TS_Button
    21. .BackColor = SystemToolStripFarbe
    22. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    23. End With
    24. Next
    26. For Each Me.TS_DDButton In SysToolStrip.Items.OfType(Of ToolStripDropDownButton)()
    27. With Me.TS_DDButton
    28. .BackColor = SystemToolStripFarbe
    29. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    30. End With
    32. For Each Me.TS_MenueItem In Me.TS_DDButton.DropDownItems.OfType(Of ToolStripMenuItem)()
    33. With Me.TS_MenueItem
    34. .BackColor = SystemToolStripFarbe
    35. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    36. End With
    37. Call SystemToolStrip_Formatieren_SubItems(Me.TS_MenueItem)
    38. Next
    39. Next
    42. End Sub
    44. Private Sub SystemToolStrip_Formatieren_SubItems(ByVal Eintrag As System.Windows.Forms.ToolStripMenuItem)
    46. For Each Me.TS_SubMenueItem In Eintrag.DropDownItems.OfType(Of ToolStripMenuItem)()
    47. With Me.TS_SubMenueItem
    48. .BackColor = SystemToolStripFarbe
    49. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    50. End With
    51. Call SystemToolStrip_Formatieren_SubItems(Me.TS_SubMenueItem)
    52. Next
    54. End Sub


    Gruß Markus

    RodFromGermany schrieb:

    For Each erzeugt eine lokale Variable, mach das mal ohne Me.
    und schmeiß alle Variablen Private TS_XXX raus.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub SystemToolstrip_Formatieren(ByVal SysToolStrip As System.Windows.Forms.ToolStrip)
    3. For Each _Label In SysToolStrip.Items.OfType(Of ToolStripLabel)()
    4. With _Label
    5. .Text = _Label.Name ' Wird reingeschrieben
    6. .BackColor = SystemToolStripFarbe ' Funktioniert nicht
    7. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    8. End With
    9. Next
    11. For Each _Button In SysToolStrip.Items.OfType(Of ToolStripButton)()
    12. With _Button
    13. .BackColor = SystemToolStripFarbe
    14. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    15. End With
    16. Next
    18. For Each _Button In SysToolStrip.Items.OfType(Of ToolStripDropDownButton)()
    19. With _Button
    20. .BackColor = SystemToolStripFarbe
    21. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    22. End With
    24. For Each _Item In _Button.DropDownItems.OfType(Of ToolStripMenuItem)()
    25. With _Item
    26. .BackColor = SystemToolStripFarbe
    27. .Font = Drawing.Font.FromHfont(Monitor.SchriftNormal.ToHfont)
    28. End With
    29. Call SystemToolStrip_Formatieren_SubItems(_Item)
    30. Next
    31. Next
    33. End Sub
    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!

    Ja und, was hat das mit Deinen Variablen zu tun?

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. ToolStrip1.RenderMode = ToolStripRenderMode.System
    3. ToolStripLabel1.BackColor = Color.Red
    4. End Sub
    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!