Colored Menues

    • .NET (FX) 4.5–4.8
    • VB.NET

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

      Colored Menues

      Moin moin :)

      Ich habe meinen "Menu-Styler", der in einigen meiner Programme verwendet wird, überarbeitet und erweitert, um ihn vielseitiger einsetzbar zu machen. Der neue Ansatz betrifft sowohl das MainMenuStrip als auch das ContextMenuStrip.
      Der Code in der Windows-Form-Class ist dabei minimal gehalten, um eine einfache Integration zu ermöglichen. Die Farbanpassungen werden zentral in der MenuStylingConfig-Klasse vorgenommen, sodass Änderungen an den Menüfarben problemlos und an einer Stelle vorgenommen werden können.

      Zusätzlich habe ich eine ContextMenuController-Klasse entwickelt, die für die Verwaltung und Verarbeitung der Kontextmenüoptionen zuständig ist. Diese Klasse kann flexibel auf die Anforderungen der Anwendung angepasst werden und bietet auch die Möglichkeit, ähnliche Funktionen für das MainMenu zu integrieren. So wird der gesamte Menü-Handling-Prozess vereinfacht und gleichzeitig die Flexibilität erhöht, verschiedene Menüs und deren Eigenschaften auf konsistente Weise zu steuern.

      Kleine Code-Auszüge:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class FrmMain
      3. Public Sub New()
      4. InitializeComponent()
      5. MainMenuStyler.Instance.ApplyStyleToAllMenuStrips(Me)
      6. ContextMenuStyler.Instance.ApplyStyleToContextMenu(ContextMenuStrip1)
      7. ' Event-Handler für Menüoptionen hinzufügen
      8. AddHandler ContexMenuController.Instance.MenuOptionSelected, AddressOf OnMenuOptionSelected
      9. ' Gemeinsamen Click-Handler für alle Menüeinträge zuweisen
      10. ContexMenuController.Instance.AssignHandlersToMenuItems(ContextMenuStrip1.Items)
      11. End Sub
      13. ' Button zum testen des Context-Menu
      14. Private Sub BtnContextMenu_Click(sender As Object, e As EventArgs) Handles BtnContextMenu.Click
      15. Dim button As Button = DirectCast(sender, Button)
      16. Dim buttonLocation As Point = button.PointToScreen(New Point(0, button.Height))
      17. ' ContextMenuStrip anzeigen
      18. ContextMenuStrip1.Show(buttonLocation)
      19. End Sub
      21. ' Callback für Menüoptionen
      22. Private Sub OnMenuOptionSelected(options As ContexMenuController.MenuOptions)
      23. ContexMenuController.Instance.ProcessMenuOption(options)
      24. End Sub
      25. End Class


      VB.NET-Quellcode

      1. Public Class MenuStylingConfig
      2. ' Singleton-Instanz
      3. Public Shared ReadOnly Property Instance As New MenuStylingConfig()
      5. ' Allgemeine Farben
      6. Public Property ForeColor As Color = Color.DeepSkyBlue
      7. Public Property BackgroundColor As Color = Color.FromArgb(50, 50, 50)
      8. Public Property HoverColor As Color = Color.FromArgb(100, 100, 100)
      9. Public Property ItemBackgroundColor As Color = Color.FromArgb(60, 60, 60)
      10. Public Property BorderColor As Color = Color.Transparent
      12. Private Sub New()
      13. End Sub
      14. End Class


      VB.NET-Quellcode

      1. Public Class ContexMenuController
      2. Public Shared ReadOnly Property Instance As New ContexMenuController()
      4. Public Event MenuOptionSelected As Action(Of MenuOptions)
      6. ' Enum für Menüoptionen
      7. Public Enum MenuOptions
      8. None
      9. Option1
      10. Option2
      11. Option3
      12. Option4
      13. End Enum
      15. ' Methode zur Verarbeitung der Optionen
      16. Public Sub ProcessMenuOption(options As MenuOptions)
      17. Select Case options
      18. Case MenuOptions.Option1
      19. MessageBox.Show("Option 1 ausgewählt")
      20. Case MenuOptions.Option2
      21. MessageBox.Show("Option 2 ausgewählt")
      22. Case MenuOptions.Option3
      23. MessageBox.Show("Option 3 ausgewählt")
      24. Case MenuOptions.Option4
      25. MessageBox.Show("Option 4 ausgewählt")
      26. Case Else
      27. MessageBox.Show("Keine gültige Option ausgewählt")
      28. End Select
      29. End Sub
      31. ' Gemeinsamer Click-Handler für alle Menüeinträge
      32. Private Sub ContextMenuItem_Click(sender As Object, e As EventArgs)
      33. Dim menuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
      34. ' Dictionary für die Zuordnung von Namen zu Optionen
      35. Dim menuOptionMapping As New Dictionary(Of String, MenuOptions) From {
      36. {"ContextItem_1", MenuOptions.Option1},
      37. {"SubItem_1_1", MenuOptions.Option2},
      38. {"SubItem_1_2", MenuOptions.Option3},
      39. {"ContextItem_2", MenuOptions.Option4}
      40. }
      42. ' Überprüfen, ob der Name des Items im Mapping vorhanden ist
      43. If menuOptionMapping.ContainsKey(menuItem.Name) Then
      44. RaiseEvent MenuOptionSelected(menuOptionMapping(menuItem.Name)) ' Verwendung von RaiseEvent
      45. Else
      46. RaiseEvent MenuOptionSelected(MenuOptions.None) ' Wenn kein passender Name gefunden wurde
      47. End If
      48. End Sub
      50. ' Methode zum Zuweisen des Click-Handlers für alle Menüeinträge
      51. Public Sub AssignHandlersToMenuItems(items As ToolStripItemCollection)
      52. For Each item As ToolStripItem In items
      53. If TypeOf item Is ToolStripMenuItem Then
      54. Dim menuItem As ToolStripMenuItem = DirectCast(item, ToolStripMenuItem)
      55. ' Zuweisen des gemeinsamen Click-Handlers
      56. AddHandler menuItem.Click, AddressOf ContextMenuItem_Click
      57. ' Rekursive Zuweisung für Untermenüs
      58. If menuItem.HasDropDownItems Then
      59. AssignHandlersToMenuItems(menuItem.DropDownItems)
      60. End If
      61. End If
      62. Next
      63. End Sub
      65. End Class



      Das ganze bereinigte Projekt in der angehängten Zip-Datei.

      Kommentare, Verbesserungen und Feedbacks lese ich gerne. :rolleyes:
      Ansonsten allen einen schönen "Heilig Abend" :rolleyes:

      Verschoben. ~Thunderbolt
      Dateien

      • MenuStyler.zip

        (18,74 kB, 39 mal heruntergeladen, zuletzt: )
      Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

      @Amelie Dein ContextMenuStyler-Singleton ist nicht ganz korrekt implementiert:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. ' Singleton-Instanz
      2. Public Shared ReadOnly Property GetInstance As ContextMenuStyler
      3. Get
      4. If Instance Is Nothing Then
      5. Instance = New ContextMenuStyler()
      6. End If
      7. Return Instance
      8. End Get
      9. End Property
      11. Private Shared Instance As ContextMenuStyler
      13. ' privater Konstruktor
      14. Private Sub New()
      15. 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!

      Moin moin @RodFromGermany

      Also in .Net 4.8 FW funktioniert mein ( kompaktes ) Singleton, jedoch weiß ich, das es unter .Net 7 / 8 wohl eher deine Implementierung benötigt.
      Warum das so ist hab ich noch nicht so richtig verstanden.

      Ich mache eher weniger in .Net 7 / 8 weil das Studio (VS22) damit doch sehr langsam wird und ich immer wieder auf Probleme stoße. :(

      PS:
      So ganz gefällt mir eh die "ContexMenuController-Class" noch nicht. Hast du vielleicht Ideen das anders zu gestalten? :)
      Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

      Schönen ersten Feiertag Euch allen.

      Ich habe die ContexMenuController-Class nochmal umgebaut und eine weitere ContexMenuHandler-Class (für RelayCommand optional nutzbar) hinzugefügt.
      Rest vom Code ist unverändert...

      Mit der Nutzung der ContexMenuHandler-Class kann man die Trennungen noch weiter ausbauen, aber wohl für kleine Projekte "überdimensioniert"??

      Spoiler anzeigen
      ​
      Die neue ContexMenuController

      VB.NET-Quellcode

      1. ​
      2. Public Class ContexMenuController
      3. Public Shared ReadOnly Property Instance As ContexMenuController
      4. Get
      5. If _instance Is Nothing Then
      6. _instance = New ContexMenuController()
      7. End If
      8. Return _instance
      9. End Get
      10. End Property
      12. Private Shared _instance As ContexMenuController
      14. Public Event MenuOptionSelected As Action(Of MenuOptions)
      16. ' Enum für Menüoptionen
      17. Public Enum MenuOptions
      18. None
      19. Option1
      20. Option2
      21. Option3
      22. Option4
      23. End Enum
      25. ' Dictionary für die Zuordnung von Menüeinträgen zu Menüoptionen
      26. Private ReadOnly menuOptionMapping As New Dictionary(Of String, MenuOptions) From {
      27. {"ContextItem_1", MenuOptions.Option1},
      28. {"SubItem_1_1", MenuOptions.Option2},
      29. {"SubItem_1_2", MenuOptions.Option3},
      30. {"ContextItem_2", MenuOptions.Option4}
      31. }
      33. ' Methode zur Verarbeitung der Optionen
      34. Public Sub ProcessMenuOption(options As MenuOptions)
      35. HandleMenuOption(options)
      36. End Sub
      38. ' Gemeinsame Methode für alle Menüoptionen
      39. Private Sub HandleMenuOption(options As MenuOptions)
      40. Select Case options
      42. Case MenuOptions.Option1
      43. ' Optional mit RelayCommand
      44. ContexMenuHandler.Instance.ExecuteOption1.Execute(Nothing)
      46. Case MenuOptions.Option2
      47. ' Ohne RelayCommand
      48. SubOption_2()
      49. Case MenuOptions.Option3
      50. SubOption_3()
      51. Case MenuOptions.Option4
      52. SubOption_4()
      53. Case Else
      54. MessageBox.Show("Keine gültige Option ausgewählt")
      55. End Select
      56. End Sub
      58. ' Gemeinsamer Click-Handler für alle Menüeinträge
      59. Private Sub ContextMenuItem_Click(sender As Object, e As EventArgs)
      60. Dim menuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
      62. ' Menüeintrag-Namen zu MenuOptions umwandeln
      63. If menuOptionMapping.ContainsKey(menuItem.Name) Then
      64. Dim selectedOption As MenuOptions = menuOptionMapping(menuItem.Name)
      65. HandleMenuOption(selectedOption)
      66. Else
      67. MessageBox.Show("Unbekannter Menüeintrag")
      68. End If
      69. End Sub
      71. ' Methode zum Zuweisen des Click-Handlers für alle Menüeinträge
      72. Public Sub AssignHandlersToMenuItems(items As ToolStripItemCollection)
      73. For Each item As ToolStripItem In items
      74. If TypeOf item Is ToolStripMenuItem Then
      75. Dim menuItem As ToolStripMenuItem = DirectCast(item, ToolStripMenuItem)
      76. ' Zuweisen des gemeinsamen Click-Handlers
      77. AddHandler menuItem.Click, AddressOf ContextMenuItem_Click
      78. ' Rekursive Zuweisung für Untermenüs
      79. If menuItem.HasDropDownItems Then
      80. AssignHandlersToMenuItems(menuItem.DropDownItems)
      81. End If
      82. End If
      83. Next
      84. End Sub
      86. ' Methoden ohne RealyCommand Nutzung
      87. Private Sub SubOption_2()
      88. MessageBox.Show("Option 2 ausgewählt")
      89. End Sub
      91. Private Sub SubOption_3()
      92. MessageBox.Show("Option 3 ausgewählt")
      93. End Sub
      95. Private Sub SubOption_4()
      96. MessageBox.Show("Option 4 ausgewählt")
      97. End Sub
      98. End Class


      Die neue ContexMenuHandler ( Optional mit RelayCommand )

      VB.NET-Quellcode

      1. ​
      2. Public Class ContexMenuHandler
      3. Public Shared ReadOnly Property Instance As ContexMenuHandler
      4. Get
      5. If _instance Is Nothing Then
      6. _instance = New ContexMenuHandler
      7. End If
      8. Return _instance
      9. End Get
      10. End Property
      12. Private Shared _instance As ContexMenuHandler
      14. Public Property ExecuteOption1 As New RelayCommand(AddressOf ActionOption1)
      16. ' Methoden für jede Option
      17. Private Sub ActionOption1()
      18. MessageBox.Show("Option 1 ausgewählt")
      19. End Sub
      20. End Class

      Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

      RodFromGermany schrieb:

      @Amelie Dein ContextMenuStyler-Singleton ist nicht ganz korrekt implementiert
      hmm - mir sieht das ganz richtig aus, was Amelie ursprünglich gemacht hat.
      Und auch hübscher: nur eine Zeile - kein Brimborium.

      Deine Variante dagegen ist ziemlich OldSchool, als es die Auto-Properties noch nicht gab.