Switch Button / Toggle Button

    • C#
    • .NET (FX) 4.5–4.8

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von MrTrebron.

      Switch Button / Toggle Button

      ich war auf der Suche nach einem 'chicen' Switch Button oder Toggle Button. Ich bin auf eine Lösung gestoßen,
      die, wie ich finde, auch auf Deutsch verfügbar sein soll.
      Die Herangesehensweise ist recht simple. Eine Klassen-Objekt erstellen und folgenden Code einfügen. Nach dem Compilieren steht der Button zur Verfügung.

      C#-Quellcode

      1. using System.Windows.Forms;
      2. using System.Drawing;
      3. using System.Drawing.Drawing2D;
      4. using System.ComponentModel;
      6. namespace MusterProject.Controls.BenutzerTools {
      8. /// <summary>
      9. /// 'Source: https://github.com/RJCodeAdvance/Toggle-Button-WinForm/blob/main/RJToggleButton.cs
      10. /// </summary>
      11. namespace CustomControls.ToggleButton {
      12. public class SwitchButton : CheckBox {
      13. //Fields
      14. private Color onBackColor = Color.MediumSlateBlue;
      15. private Color onToggleColor = Color.WhiteSmoke;
      16. private Color offBackColor = Color.Gray;
      17. private Color offToggleColor = Color.Gainsboro;
      18. private bool solidStyle = true;
      20. //Properties
      21. #region Properties [Category("OwnTools")]
      22. public Color OnBackColor {
      23. get {
      24. return onBackColor;
      25. }
      27. set {
      28. onBackColor = value;
      29. this.Invalidate();
      30. }
      31. }
      33. [Category("OwnTools")]
      34. public Color OnToggleColor {
      35. get {
      36. return onToggleColor;
      37. }
      39. set {
      40. onToggleColor = value;
      41. this.Invalidate();
      42. }
      43. }
      45. [Category("OwnTools")]
      46. public Color OffBackColor {
      47. get {
      48. return offBackColor;
      49. }
      51. set {
      52. offBackColor = value;
      53. this.Invalidate();
      54. }
      55. }
      57. [Category("OwnTools")]
      58. public Color OffToggleColor {
      59. get {
      60. return offToggleColor;
      61. }
      63. set {
      64. offToggleColor = value;
      65. this.Invalidate();
      66. }
      67. }
      69. [Browsable(false)]
      70. public override string Text {
      71. get {
      72. return base.Text;
      73. }
      75. set {
      77. }
      78. }
      80. [Category("OwnTools")]
      81. [DefaultValue(true)]
      82. public bool SolidStyle {
      83. get {
      84. return solidStyle;
      85. }
      87. set {
      88. solidStyle = value;
      89. this.Invalidate();
      90. }
      91. }
      92. #endregion
      94. /// Constructor
      95. public SwitchButton() {
      96. this.MinimumSize = new Size(45, 22);
      97. }
      99. //Methods
      100. private GraphicsPath GetFigurePath() {
      101. int arcSize = this.Height - 1;
      102. Rectangle leftArc = new Rectangle(0, 0, arcSize, arcSize);
      103. Rectangle rightArc = new Rectangle(this.Width - arcSize - 2, 0, arcSize, arcSize);
      105. GraphicsPath path = new GraphicsPath();
      106. path.StartFigure();
      107. path.AddArc(leftArc, 90, 180);
      108. path.AddArc(rightArc, 270, 180);
      109. path.CloseFigure();
      111. return path;
      112. }
      114. protected override void OnPaint(PaintEventArgs pevent) {
      115. int toggleSize = this.Height - 5;
      116. pevent.Graphics.SmoothingMode = SmoothingMode.AntiAlias;
      117. pevent.Graphics.Clear(this.Parent.BackColor);
      119. if (this.Checked) //ON
      120. {
      121. //Draw the control surface
      122. if (solidStyle)
      123. pevent.Graphics.FillPath(new SolidBrush(onBackColor), GetFigurePath());
      124. else pevent.Graphics.DrawPath(new Pen(onBackColor, 2), GetFigurePath());
      125. //Draw the toggle
      126. pevent.Graphics.FillEllipse(new SolidBrush(onToggleColor),
      127. new Rectangle(this.Width - this.Height + 1, 2, toggleSize, toggleSize));
      128. } else //OFF
      129. {
      130. //Draw the control surface
      131. if (solidStyle)
      132. pevent.Graphics.FillPath(new SolidBrush(offBackColor), GetFigurePath());
      133. else pevent.Graphics.DrawPath(new Pen(offBackColor, 2), GetFigurePath());
      134. //Draw the toggle
      135. pevent.Graphics.FillEllipse(new SolidBrush(offToggleColor),
      136. new Rectangle(2, 2, toggleSize, toggleSize));
      137. }
      138. }
      139. }
      140. }
      141. }


      VB.NET-Quellcode

      1. Imports System.Windows.Forms
      2. Imports System.Drawing
      3. Imports System.Drawing.Drawing2D
      4. Imports System.ComponentModel
      6. Public Class SwitchButton
      7. Inherits CheckBox
      9. Private onBackColor As Color = Color.MediumSlateBlue
      10. Private onToggleColor As Color = Color.WhiteSmoke
      11. Private offBackColor As Color = Color.Gray
      12. Private offToggleColor As Color = Color.Gainsboro
      13. Private solidStyle As Boolean = True
      15. Public Property OnBackColor As Color
      16. Get
      17. Return onBackColor
      18. End Get
      19. Set(ByVal value As Color)
      20. onBackColor = value
      21. Me.Invalidate()
      22. End Set
      23. End Property
      25. <Category("OwnTools")>
      26. Public Property OnToggleColor As Color
      27. Get
      28. Return onToggleColor
      29. End Get
      30. Set(ByVal value As Color)
      31. onToggleColor = value
      32. Me.Invalidate()
      33. End Set
      34. End Property
      36. <Category("OwnTools")>
      37. Public Property OffBackColor As Color
      38. Get
      39. Return offBackColor
      40. End Get
      41. Set(ByVal value As Color)
      42. offBackColor = value
      43. Me.Invalidate()
      44. End Set
      45. End Property
      47. <Category("OwnTools")>
      48. Public Property OffToggleColor As Color
      49. Get
      50. Return offToggleColor
      51. End Get
      52. Set(ByVal value As Color)
      53. offToggleColor = value
      54. Me.Invalidate()
      55. End Set
      56. End Property
      58. <Browsable(False)>
      59. Public Overrides Property Text As String
      60. Get
      61. Return MyBase.Text
      62. End Get
      63. Set(ByVal value As String)
      64. End Set
      65. End Property
      67. <Category("OwnTools")>
      68. <DefaultValue(True)>
      69. Public Property SolidStyle As Boolean
      70. Get
      71. Return solidStyle
      72. End Get
      73. Set(ByVal value As Boolean)
      74. solidStyle = value
      75. Me.Invalidate()
      76. End Set
      77. End Property
      79. Public Sub New()
      80. Me.MinimumSize = New Size(45, 22)
      81. End Sub
      83. Private Function GetFigurePath() As GraphicsPath
      84. Dim arcSize As Integer = Me.Height - 1
      85. Dim leftArc As Rectangle = New Rectangle(0, 0, arcSize, arcSize)
      86. Dim rightArc As Rectangle = New Rectangle(Me.Width - arcSize - 2, 0, arcSize, arcSize)
      87. Dim path As GraphicsPath = New GraphicsPath()
      88. path.StartFigure()
      89. path.AddArc(leftArc, 90, 180)
      90. path.AddArc(rightArc, 270, 180)
      91. path.CloseFigure()
      92. Return path
      93. End Function
      95. Protected Overrides Sub OnPaint(ByVal pevent As PaintEventArgs)
      96. Dim toggleSize As Integer = Me.Height - 5
      97. pevent.Graphics.SmoothingMode = SmoothingMode.AntiAlias
      98. pevent.Graphics.Clear(Me.Parent.BackColor)
      100. If Me.Checked Then
      102. If solidStyle Then
      103. pevent.Graphics.FillPath(New SolidBrush(onBackColor), GetFigurePath())
      104. Else
      105. pevent.Graphics.DrawPath(New Pen(onBackColor, 2), GetFigurePath())
      106. End If
      108. pevent.Graphics.FillEllipse(New SolidBrush(onToggleColor), New Rectangle(Me.Width - Me.Height + 1, 2, toggleSize, toggleSize))
      109. Else
      111. If solidStyle Then
      112. pevent.Graphics.FillPath(New SolidBrush(offBackColor), GetFigurePath())
      113. Else
      114. pevent.Graphics.DrawPath(New Pen(offBackColor, 2), GetFigurePath())
      115. End If
      117. pevent.Graphics.FillEllipse(New SolidBrush(offToggleColor), New Rectangle(2, 2, toggleSize, toggleSize))
      118. End If
      119. End Sub
      120. End Class



      All credits to: www.rjcodeadvance.com
      Weitere Anpassungsmöglichkeiten:

      codemengenbedingt TabMenü für beide Sprachen eingebaut ~VaporiZed

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

      @DMO Ich gehe mal davon aus, dass Du den VB-Code mit einem Automaten generiert hast, ohne ihn zumindest auf Compilierbarkeit getestet zu haben. X(
      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!

      Sehe ich das Richtig, du veröffentlichst hier den Code von jemanden Anderen?

      Nachtrag: im Code ist ein Verweis auf ein GitHub Repo von RJCodeAdvanceam. Am Ende des Posts, vor dem Video von RJCodeAdvance, ist noch ein Verweis auf die Seite von RJCodeAdvance.
      Die deutsche Sprache ist Freeware, du kannst sie benutzen, ohne dafür zu bezahlen. Sie ist aber nicht Open Source, also darfst du sie nicht verändern, wie es dir gerade passt.

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