[UPDATE 20.10.2020] - MetroSuite 2.0 - Holt euch den modernen Windows 10 Style.

    • Release
    • Closed Source

    Es gibt 1.336 Antworten in diesem Thema. Der letzte Beitrag () ist von AKP.

      Hallo Gather,
      ein Vorschlag von mir - hast Du evtl. an ein MenuStrip Control gedacht?

      Denn ich kämpfe grad aktuell damit, dem vb.net Menustrip die Farben der MetroSuite-Form (MetroSuite 2.0.2.1) beizubringen (u.a. mit einem Renderer) komme aber nicht weiter:

      Spoiler anzeigen

      Quellcode

      1. Imports System.Collections.Generic
      2. Imports System.Windows.Forms
      3. Imports System.Drawing
      5. Public Class MainForm
      7. Public Sub New()
      9. ' This call is required by the designer.
      10. InitializeComponent()
      12. ' Add any initialization after the InitializeComponent() call.
      14. End Sub
      16. Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      17. ChangeColours()
      18. End Sub
      20. Private Sub ChangeColours()
      21. With Menü
      22. .ForeColor = ForeColor
      23. .BackColor = BackColor
      24. End With
      26. ToolStripManager.Renderer = New ToolStripProfessionalRenderer(New MenuStripColors())
      27. End Sub
      28. End Class
      30. Class MenuStripColors
      31. Inherits ProfessionalColorTable
      33. 'Public Overridable ReadOnly Property MenuStripGradientBegin As Color
      34. 'Public Overridable ReadOnly Property MenuStripGradientEnd As Color
      35. 'Public Overridable ReadOnly Property MenuItemSelected As Color
      36. 'Public Overridable ReadOnly Property MenuItemBorder As Color
      37. 'Public Overridable ReadOnly Property MenuBorder As Color
      38. 'Public Overridable ReadOnly Property MenuItemSelectedGradientBegin As Color
      39. 'Public Overridable ReadOnly Property MenuItemSelectedGradientEnd As Color
      40. 'Public Overridable ReadOnly Property MenuItemPressedGradientBegin As Color
      41. 'Public Overridable ReadOnly Property MenuItemPressedGradientMiddle As Color
      42. 'Public Overridable ReadOnly Property MenuItemPressedGradientEnd As Color
      43. 'Public Overridable ReadOnly Property RaftingContainerGradientBegin As Color
      44. 'Public Overridable ReadOnly Property RaftingContainerGradientEnd As Color
      45. 'Public Overridable ReadOnly Property SeparatorDark As Color
      46. 'Public Overridable ReadOnly Property SeparatorLight As Color
      47. 'Public Overridable ReadOnly Property StatusStripGradientBegin As Color
      48. 'Public Overridable ReadOnly Property StatusStripGradientEnd As Color
      49. 'Public Overridable ReadOnly Property ToolStripBorder As Color
      50. 'Public Overridable ReadOnly Property ToolStripDropDownBackground As Color
      51. 'Public Overridable ReadOnly Property ToolStripGradientBegin As Color
      52. 'Public Overridable ReadOnly Property ToolStripGradientMiddle As Color
      53. 'Public Overridable ReadOnly Property ToolStripGradientEnd As Color
      54. 'Public Overridable ReadOnly Property ToolStripContentPanelGradientBegin As Color
      55. 'Public Overridable ReadOnly Property ToolStripContentPanelGradientEnd As Color
      56. 'Public Overridable ReadOnly Property ToolStripPanelGradientBegin As Color
      57. 'Public Overridable ReadOnly Property ToolStripPanelGradientEnd As Color
      58. 'Public Overridable ReadOnly Property OverflowButtonGradientBegin As Color
      59. 'Public Overridable ReadOnly Property ImageMarginRevealedGradientEnd As Color
      60. 'Public Overridable ReadOnly Property ImageMarginRevealedGradientMiddle As Color
      61. 'Public Overridable ReadOnly Property ImageMarginRevealedGradientBegin As Color
      62. 'Public Property UseSystemColors As Boolean
      63. 'Public Overridable ReadOnly Property ButtonSelectedHighlight As Color
      64. 'Public Overridable ReadOnly Property ButtonSelectedHighlightBorder As Color
      65. 'Public Overridable ReadOnly Property ButtonPressedHighlight As Color
      66. 'Public Overridable ReadOnly Property ButtonPressedHighlightBorder As Color
      67. 'Public Overridable ReadOnly Property ButtonCheckedHighlight As Color
      68. 'Public Overridable ReadOnly Property ButtonCheckedHighlightBorder As Color
      69. 'Public Overridable ReadOnly Property ButtonPressedBorder As Color
      70. 'Public Overridable ReadOnly Property ButtonSelectedBorder As Color
      71. 'Public Overridable ReadOnly Property ButtonCheckedGradientBegin As Color
      72. 'Public Overridable ReadOnly Property ButtonCheckedGradientMiddle As Color
      73. 'Public Overridable ReadOnly Property ButtonCheckedGradientEnd As Color
      74. 'Public Overridable ReadOnly Property OverflowButtonGradientMiddle As Color
      75. 'Public Overridable ReadOnly Property ButtonSelectedGradientBegin As Color
      76. 'Public Overridable ReadOnly Property ButtonSelectedGradientEnd As Color
      77. 'Public Overridable ReadOnly Property ButtonPressedGradientBegin As Color
      78. 'Public Overridable ReadOnly Property ButtonPressedGradientMiddle As Color
      79. 'Public Overridable ReadOnly Property ButtonPressedGradientEnd As Color
      80. 'Public Overridable ReadOnly Property CheckBackground As Color
      81. 'Public Overridable ReadOnly Property CheckSelectedBackground As Color
      82. 'Public Overridable ReadOnly Property CheckPressedBackground As Color
      83. 'Public Overridable ReadOnly Property GripDark As Color
      84. 'Public Overridable ReadOnly Property GripLight As Color
      85. 'Public Overridable ReadOnly Property ImageMarginGradientBegin As Color
      86. 'Public Overridable ReadOnly Property ImageMarginGradientMiddle As Color
      87. 'Public Overridable ReadOnly Property ImageMarginGradientEnd As Color
      88. 'Public Overridable ReadOnly Property ButtonSelectedGradientMiddle As Color
      89. 'Public Overridable ReadOnly Property OverflowButtonGradientEnd As Color
      91. Public Overrides ReadOnly Property MenuStripGradientBegin() As Color
      92. Get
      93. Return MainForm.BackColor
      94. End Get
      95. End Property
      97. Public Overrides ReadOnly Property MenuStripGradientEnd() As Color
      98. Get
      99. Return MainForm.BackColor
      100. End Get
      101. End Property
      103. Public ReadOnly Property MenuStripTextForeColor() As Color
      104. Get
      105. Return MainForm.ForeColor
      106. End Get
      107. End Property
      109. Public Overrides ReadOnly Property MenuItemSelected() As Color
      110. Get
      111. Return MainForm.AccentColor
      112. End Get
      113. End Property
      115. Public Overrides ReadOnly Property MenuItemBorder() As Color
      116. Get
      117. Return Color.DarkGray
      118. End Get
      119. End Property
      121. Public Overrides ReadOnly Property MenuBorder() As Color
      122. Get
      123. Return MainForm.AccentColor
      124. End Get
      125. End Property
      127. Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color
      128. Get
      129. Return MainForm.AccentColor
      130. End Get
      131. End Property
      133. Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color
      134. Get
      135. Return MainForm.AccentColor
      136. End Get
      137. End Property
      139. Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color
      140. Get
      141. Return MainForm.AccentColor
      142. End Get
      143. End Property
      145. Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color
      146. Get
      147. Return MainForm.AccentColor
      148. End Get
      149. End Property
      151. Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color
      152. Get
      153. Return MainForm.AccentColor
      154. End Get
      155. End Property
      157. End Class


      Quellcode

      1. Partial Class MainForm
      3. Inherits MetroSuite.MetroForm...


      Wie würdest Du dieses Problem lösen?



      Mir sind noch zwei weitere Dinge aufgefallen:
      1. Wenn man zuerst mit der Maus über den Rahmen und dann über die MetroSuite-Control-Box fährt, dann bleibt der Cursor falsch (Größe ändern statt Pfeil)
      2. Ich habe bei der MetroForm die StartPosition = CenterScreen ausgewählt, trotzdem wird mir das Fenster links oben angezeigt. Ich verstehe nicht, warum.

      Könntest Du mir bitte weiterhelfen?
      Ich verwende Visual Studio VB 2019.

      Danke!
      liebe Grüße
      Hans

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

      Hallo,

      so, ich konnte das Problem mit dem MenuStrip unter MetroSuite 2.0 nun lösen. Der Ansatz besteht darin einen eigenen ToolStripProfessionalRenderer (= CustomMenuRenderer) sowie eine eigene ProfessionalColorTable (= DarkStyleMenuColorTable) zu verwenden, und zwar nur im DarkMode der MetroSuite 2.0 (bei allen anderen bleibt das Menü bis auf "Menü.RenderMode = ToolStripRenderMode.Professional" unverändert)
      Bei der Farbgebung des Menüs hab ich mich am Menü vom Visual Studio orientiert (Farbwerte sind beschrieben)

      VB.NET-Quellcode

      1. Imports System.Collections.Generic
      2. Imports System.Windows.Forms
      3. Imports System.Drawing
      4. Imports System
      5. Imports System.ComponentModel
      6. Imports System.Data
      7. Imports System.Text
      9. Public Class MainForm
      11. Public Sub New()
      13. ' This call is required by the designer.
      14. InitializeComponent()
      16. End Sub
      18. Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      20. With Menü
      21. .BackColor = Me.BackColor
      22. .ForeColor = Me.ForeColor
      23. ' nur im Dark-Modus die Farben des Menüs / Toolstrips ändern
      24. If Me.Style = MetroSuite.Design.Style.Dark Then
      25. .Renderer = New CustomMenuRenderer(New DarkStyleMenuColorTable)
      26. Else
      27. Menü.RenderMode = ToolStripRenderMode.Professional
      28. End If
      29. End With
      31. End Sub
      33. End Class
      35. Public Class CustomMenuRenderer
      36. Inherits ToolStripProfessionalRenderer
      37. ' Beschreibung - Hex-Farbwert - RGB-Farbwert (jeweils Integer)
      38. Public Shared mnuBorderColor As Color = System.Drawing.Color.FromArgb(CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer)) ' contextmenuborderbrush - 333337, 51-51-51
      39. Public Shared mnuForeColor As Color = System.Drawing.Color.FromArgb(CType(CType(241, Byte), Integer), CType(CType(241, Byte), Integer), CType(CType(241, Byte), Integer)) ' systemcolorscontroltext - F1F1F1, 241-241-241
      40. Public Shared mnuBackColor As Color = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(27, Byte), Integer), CType(CType(28, Byte), Integer)) ' toolbarsubmenubackground - 1B1B1C, 27-27-28
      41. Public Shared mnuTopSeparatorColor As Color = System.Drawing.Color.FromArgb(CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer)) ' menuitemseparatorfilltop - 333337
      42. Public Shared mnuBottomSeparatorColor As Color = Color.Transparent ' menuitemseparatorfillbottom - Transparent
      43. Public Shared mnuHighlightForeColor As Color = System.Drawing.Color.FromArgb(CType(CType(241, Byte), Integer), CType(CType(241, Byte), Integer), CType(CType(241, Byte), Integer)) ' systemcolorsmenutext - F1F1F1
      44. Public Shared mnuHighlightBackColor As Color = System.Drawing.Color.FromArgb(CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer), CType(CType(52, Byte), Integer)) ' menuitemhighlightedinnerborder - 333334
      45. Public Shared mnuTopSeparatorBrush As Brush = New SolidBrush(mnuTopSeparatorColor)
      46. Public Shared mnuBottomSeparatorBrush As Brush = New SolidBrush(mnuBottomSeparatorColor)
      48. Public Sub New(ByVal colorTable As DarkStyleMenuColorTable)
      49. MyBase.New(colorTable)
      50. End Sub
      52. ' Nur für die Dokumentation:
      53. 'Protected Overloads Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
      54. ' Dim rc As New Rectangle(2, 0, e.Item.Size.Width - 4, e.Item.Size.Height)
      55. ' Dim c As Color = CType(IIf(e.Item.Selected, Color.Azure, Color.Transparent), Color)
      56. ' Using brush As New SolidBrush(c)
      57. ' e.Graphics.FillRectangle(brush, rc)
      58. ' End Using
      59. 'End Sub
      60. '
      61. 'HINWEIS: Es kann nur eine Technik eingesetzt werden - entweder diese Funktion "OnRenderMenuItemBackground" oder die Einstellungen der DarkStyleMenuColorTable!
      62. ' Wird die OnRenderMenuItemBackground-Routine verwendet, dann müssen auch evtl. Pfeile und Checkboxes selbst gezeichnet werden. (= ungeprüft)
      64. Protected Overrides Sub OnRenderItemText(e As ToolStripItemTextRenderEventArgs)
      65. If e.Item.Selected Then
      66. e.TextColor = mnuForeColor ' im Darkmode ist die Textfarbe gleich der Textfarbe des hervorgehobenen Eintrags
      67. Else
      68. e.TextColor = mnuForeColor
      69. End If
      70. MyBase.OnRenderItemText(e)
      71. End Sub
      73. Protected Overrides Sub OnRenderSeparator(ByVal e As System.Windows.Forms.ToolStripSeparatorRenderEventArgs)
      74. e.Graphics.FillRectangle(Brushes.Transparent, 0, 0, e.Item.Width - 1, e.Item.Height)
      75. e.Graphics.FillRectangle(mnuBottomSeparatorBrush, 32, 3, e.Item.Width - 33, 1)
      76. e.Graphics.FillRectangle(mnuTopSeparatorBrush, 32, 4, e.Item.Width - 33, 1)
      77. End Sub
      79. End Class
      81. 'custom color table
      82. Public Class DarkStyleMenuColorTable
      83. Inherits ProfessionalColorTable
      84. Public Overrides ReadOnly Property ToolStripDropDownBackground() As System.Drawing.Color
      85. Get
      86. Return CustomMenuRenderer.mnuBackColor
      87. End Get
      88. End Property
      90. Public Overrides ReadOnly Property ImageMarginGradientBegin() As System.Drawing.Color
      91. Get
      92. Return CustomMenuRenderer.mnuBackColor
      93. End Get
      94. End Property
      96. Public Overrides ReadOnly Property ImageMarginGradientMiddle() As System.Drawing.Color
      97. Get
      98. Return CustomMenuRenderer.mnuBackColor
      99. End Get
      100. End Property
      102. Public Overrides ReadOnly Property ImageMarginGradientEnd() As System.Drawing.Color
      103. Get
      104. Return CustomMenuRenderer.mnuBackColor
      105. End Get
      106. End Property
      108. Public Overrides ReadOnly Property MenuBorder() As System.Drawing.Color
      109. Get
      110. Return CustomMenuRenderer.mnuBorderColor
      111. End Get
      112. End Property
      113. Public Overrides ReadOnly Property MenuItemBorder() As System.Drawing.Color
      114. Get
      115. Return Color.Black
      116. End Get
      117. End Property
      119. Public Overrides ReadOnly Property MenuItemSelected() As System.Drawing.Color
      120. Get
      121. Return CustomMenuRenderer.mnuHighlightBackColor
      122. End Get
      123. End Property
      125. Public Overrides ReadOnly Property MenuStripGradientBegin() As System.Drawing.Color
      126. Get
      127. Return Color.Transparent
      128. End Get
      129. End Property
      131. Public Overrides ReadOnly Property MenuStripGradientEnd() As System.Drawing.Color
      132. Get
      133. Return Color.Transparent
      134. End Get
      135. End Property
      137. Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As System.Drawing.Color
      138. Get
      139. Return CustomMenuRenderer.mnuHighlightBackColor
      140. End Get
      141. End Property
      143. Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As System.Drawing.Color
      144. Get
      145. Return CustomMenuRenderer.mnuHighlightBackColor
      146. End Get
      147. End Property
      149. Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As System.Drawing.Color
      150. Get
      151. Return CustomMenuRenderer.mnuHighlightBackColor
      152. End Get
      153. End Property
      155. Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As System.Drawing.Color
      156. Get
      157. Return CustomMenuRenderer.mnuHighlightBackColor
      158. End Get
      159. End Property
      160. End Class


      liebe Grüße
      Hans

      Tags: MetroSuite 2.0, MenuStrip, Change MenuStrip Colors, Convert Color to Brush Color, ToolStripProfessionalRendere, ProfessionalColorTable
      Useful Links/Informations:
      stackoverflow.com/questions/56…nvert-from-color-to-brush
      docs.microsoft.com/en-us/dotne…w=netframeworkdesktop-4.8
      docs.microsoft.com/en-us/dotne…w=netframeworkdesktop-4.8
      bytes.com/topic/visual-basic-n…theme-toolstrip-menustrip
      social.msdn.microsoft.com/Foru…the-buttom?forum=winforms
      social.msdn.microsoft.com/Foru…rip-colors?forum=winforms
      dreamincode.net/forums/topic/3…nging-the-color-of-menus/
      docs.microsoft.com/en-us/dotne…w=netframeworkdesktop-4.8

      Hallo Gather

      Habe noch ein wenig mit der MetroSuite herumgespielt. Dabei sind mir noch folgende Dinge aufgefallen:

      - der Cursor der Steuerelemente wird zum Doppelpfeil, wenn man von ausserhalb der Form auf das Steuerelement fährt
      - MetroProgressbar: wenn der Value 0 ist und die Ecken abgerundet, kann sich die Anzeige unterhalb der Progressbar befinden (1-Pixel-Linie)
      - MetroCombobox: DropDownStyle und Texteigenschaft lässt sich zur Entwurfszeit nicht ändern
      - MetroDataGrid: Scrollbars im grauen Windows-Style
      - MetroTrackbar: Skala fehlt; Orientation-Eigenschaft fehlt, Scrollfunktion mit Maus nicht integriert; keine TickFrequency; kein TickStyle
      - MetroChecker: bei grösserer Schrift verschwindet der Text teilweise
      - MetroControlBox: beim Hinzufügen von Areas erscheint Meldung: Der Konstruktor für den Typ MetroSuiteControlBoxArea wurde nicht gefunden; zudem schaffe ich es nicht, nur den Minimize-Button zu entfernen, im Designer gehts, aber zur Laufzeit erscheint er wieder, egal was ich einstelle

      Soviel zu meinen Erkenntnissen. Ansonsten tolle Sammlung!

      AKP schrieb:

      - MetroCombobox: DropDownStyle und Texteigenschaft lässt sich zur Entwurfszeit nicht ändern
      Ist beabsichtigt. Leider ohne grobe Umwege nicht anders möglich.

      AKP schrieb:

      MetroDataGrid: Scrollbars im grauen Windows-Style
      Ist mir bewusst. Ist bei jedem Steuerelement so, da ich die Standard Windows Scrollbar nicht überschreibe. (Aktuell)

      AKP schrieb:

      - MetroControlBox: beim Hinzufügen von Areas erscheint Meldung: Der Konstruktor für den Typ MetroSuiteControlBoxArea wurde nicht gefunden; zudem schaffe ich es nicht, nur den Minimize-Button zu entfernen, im Designer gehts, aber zur Laufzeit erscheint er wieder, egal was ich einstelle

      Siehe Beschreibung 1. Post. Sollte alles funktionieren.

      Zum Rest: Schaue ich mir an wenn ich mich wieder an das Ganze ran setze. Zur Trackbar noch: Orientation hatte ich prinzipiell nicht geplant einzufügen. Habe es mir allerdings notiert.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      @Pixxxas Via Standardfunktion ist dies nicht möglich.
      Diesbezüglich müssen manuell die gewünschten Areas hinzugefügt werden. Für eine Anleitung siehe Post1.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      "MyTheme" war "Nothing".

      Moin,

      wenn ich versuche ein Theme zu übernehmen bekomme ich eine Null-Referenz Exception:

      Quellcode

      1. ​System.NullReferenceException: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."
      3. "MyTheme" war "Nothing".


      Code:

      VB.NET-Quellcode

      1. Imports MetroSuite
      2. Imports MetroSuite.Extension
      3. Public Class Form1
      4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      5. Dim MyTheme As New Styles.Themes.MetroSuiteTheme
      6. MyTheme = MyTheme.FromFile(My.Application.Info.DirectoryPath & "\TwitchTheme.mstheme")
      7. MyTheme.ApplyTheme(Me)
      8. End Sub
      10. Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles MetroButton1.Click
      11. Me.Close()
      12. End Sub
      13. End Class


      Ideen?

      Im Designer erbt die Form von MetroSuite.MetroForm

      Es sieht so aus, als wurde kein Verweis auf die MetroSuite.Extensions.dll gesetzt. Diesbezüglich bitte die dazugehörige .dll aus dem ersten Post herunterladen.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Gather schrieb:

      Es sieht so aus, als wurde kein Verweis auf die MetroSuite.Extensions.dll gesetzt. Diesbezüglich bitte die dazugehörige .dll aus dem ersten Post herunterladen.


      Hm, verwies Stand. Habe den Verweis auf beide DLL noch einmal entfernt, neu eingefügt, geht nun.

      Gibt es eine Möglichkeit den MetroChecker in Gruppen zu packen, wie beim RadioButton? Also dass innerhalb einer Gruppe nur ein MetroChecker angewählt sein kann?

      @PapaBeer92 einfach den style von custom wieder auf light / dark setzen.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Ich meine auch bei allen Controls selbst. Denn Themen deaktivieren das automatische wechseln des Styles welchen in die Form implementiert wurde.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!