Meine Controls (Source)

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ExtremProgrammierer.

      Meine Controls (Source)

      Hallööle..
      Ich arbeite seit 2-3 tagen an ein paar kleinen Controls..
      (Das standarddesign ist blau, aber man kann alle farben ändern - per propertys)

      #Edit
      Jetzt mit Option Strict On!

      Button.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. Public Enum MouseState As Byte
      5. None
      6. Hover
      7. Pressed
      8. End Enum
      10. Public Class Button
      11. Inherits System.Windows.Forms.Button
      13. Private _Color1 As System.Drawing.Color
      14. <Category("Button")> _
      15. Public Property Color1 As System.Drawing.Color
      16. Get
      17. Return Me._Color1
      18. End Get
      19. Set(ByVal value As System.Drawing.Color)
      20. Me._Color1 = value
      21. Me._Color1H = System.Drawing.Color.FromArgb(Me._Color1.A, CInt(Me._Color1.R * 0.9), CInt(Me._Color1.G * 0.9), CInt(Me._Color1.B * 0.9))
      22. Me.Invalidate()
      23. End Set
      24. End Property
      25. Private _Color2 As System.Drawing.Color
      26. <Category("Button")> _
      27. Public Property Color2 As System.Drawing.Color
      28. Get
      29. Return Me._Color2
      30. End Get
      31. Set(ByVal value As System.Drawing.Color)
      32. Me._Color2 = value
      33. Me._Color2H = System.Drawing.Color.FromArgb(Me._Color2.A, CInt(Me._Color2.R * 0.9), CInt(Me._Color2.G * 0.9), CInt(Me._Color2.B * 0.9))
      34. Me.Invalidate()
      35. End Set
      36. End Property
      38. Private _Color1H As System.Drawing.Color
      39. Private _Color2H As System.Drawing.Color
      41. Private _MouseState As MouseState
      42. Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      43. MyBase.OnMouseEnter(e)
      44. Me._MouseState = MouseState.Hover
      45. Me.Invalidate()
      46. End Sub
      47. Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
      48. MyBase.OnMouseEnter(e)
      49. Me._MouseState = MouseState.None
      50. Me.Invalidate()
      51. End Sub
      52. Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      53. MyBase.OnMouseDown(mevent)
      54. Me._MouseState = MouseState.Pressed
      55. Me.Invalidate()
      56. End Sub
      57. Protected Overrides Sub OnMouseUp(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      58. MyBase.OnMouseUp(mevent)
      59. Me._MouseState = MouseState.Hover
      60. Me.Invalidate()
      61. End Sub
      63. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      64. MyBase.OnPaint(e)
      65. e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
      66. Dim globalRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(0, 0, Me.Width - 1, Me.Height - 1), 8)
      67. If Me._MouseState = MouseState.None Then
      68. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1, Me._Color2), globalRect)
      69. ElseIf Me._MouseState = MouseState.Hover Then
      70. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1H, Me._Color2H), globalRect)
      71. ElseIf Me._MouseState = MouseState.Pressed Then
      72. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color2H, Me._Color1H), globalRect)
      73. End If
      74. e.Graphics.FillPath(New System.Drawing.Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.WideUpwardDiagonal, System.Drawing.Color.FromArgb(&H0), System.Drawing.Color.FromArgb(&HF000000)), globalRect)
      75. Dim TextSize As Drawing.SizeF = e.Graphics.MeasureString(Me.Text, Me.Font, Me.Width)
      76. e.Graphics.DrawString(Me.Text, Me.Font, New Drawing.SolidBrush(Me.ForeColor), New Drawing.Point(CInt(Me.Width / 2) - CInt(TextSize.Width / 2), CInt(Me.Height / 2) - CInt(TextSize.Height / 2)))
      77. e.Graphics.DrawPath(Drawing.Pens.DimGray, globalRect)
      78. End Sub
      80. Sub New()
      81. Me._Color1 = Drawing.Color.FromArgb(255, 45, 142, 232)
      82. Me._Color2 = Drawing.Color.FromArgb(255, 39, 123, 204)
      84. Me._Color1H = System.Drawing.Color.FromArgb(Me._Color1.A, CInt(Me._Color1.R * 0.9), CInt(Me._Color1.G * 0.9), CInt(Me._Color1.B * 0.9))
      85. Me._Color2H = System.Drawing.Color.FromArgb(Me._Color2.A, CInt(Me._Color2.R * 0.9), CInt(Me._Color2.G * 0.9), CInt(Me._Color2.B * 0.9))
      87. Me.Size = New System.Drawing.Size(100, 25)
      88. Me._MouseState = MouseState.None
      89. Me.Cursor = Windows.Forms.Cursors.Hand
      90. End Sub
      92. End Class


      InfoButton.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. Public Class InfoButton
      5. Inherits System.Windows.Forms.Button
      7. Private _Color1 As System.Drawing.Color
      8. <Category("Button")> _
      9. Public Property Color1 As System.Drawing.Color
      10. Get
      11. Return Me._Color1
      12. End Get
      13. Set(ByVal value As System.Drawing.Color)
      14. Me._Color1 = value
      15. Me._Color1H = System.Drawing.Color.FromArgb(Me._Color1.A, CInt(Me._Color1.R * 0.9), CInt(Me._Color1.G * 0.9), CInt(Me._Color1.B * 0.9))
      16. Me.Invalidate()
      17. End Set
      18. End Property
      19. Private _Color2 As System.Drawing.Color
      20. <Category("Button")> _
      21. Public Property Color2 As System.Drawing.Color
      22. Get
      23. Return Me._Color2
      24. End Get
      25. Set(ByVal value As System.Drawing.Color)
      26. Me._Color2 = value
      27. Me._Color2H = System.Drawing.Color.FromArgb(Me._Color2.A, CInt(Me._Color2.R * 0.9), CInt(Me._Color2.G * 0.9), CInt(Me._Color2.B * 0.9))
      28. Me.Invalidate()
      29. End Set
      30. End Property
      32. Private _TextInfo As String
      33. <Category("Darstellung")> _
      34. Public Property TextInfo As String
      35. Get
      36. Return Me._TextInfo
      37. End Get
      38. Set(value As String)
      39. Me._TextInfo = value
      40. Me.Invalidate()
      41. End Set
      42. End Property
      44. Private _InfoTextFont As Drawing.Font
      45. <Category("Button")> _
      46. Public Property InfoTextFont As Drawing.Font
      47. Get
      48. Return Me._InfoTextFont
      49. End Get
      50. Set(value As Drawing.Font)
      51. Me._InfoTextFont = value
      52. Me.Invalidate()
      53. End Set
      54. End Property
      56. Private _InfoTextColor As Drawing.Color
      57. <Category("Button")> _
      58. Public Property InfoTextColor As Drawing.Color
      59. Get
      60. Return Me._InfoTextColor
      61. End Get
      62. Set(value As Drawing.Color)
      63. Me._InfoTextColor = value
      64. Me.Invalidate()
      65. End Set
      66. End Property
      68. Private _Color1H As System.Drawing.Color
      69. Private _Color2H As System.Drawing.Color
      71. Private _MouseState As MouseState
      72. Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      73. MyBase.OnMouseEnter(e)
      74. Me._MouseState = MouseState.Hover
      75. Me.Invalidate()
      76. End Sub
      77. Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
      78. MyBase.OnMouseEnter(e)
      79. Me._MouseState = MouseState.None
      80. Me.Invalidate()
      81. End Sub
      82. Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      83. MyBase.OnMouseDown(mevent)
      84. Me._MouseState = MouseState.Pressed
      85. Me.Invalidate()
      86. End Sub
      87. Protected Overrides Sub OnMouseUp(ByVal mevent As System.Windows.Forms.MouseEventArgs)
      88. MyBase.OnMouseUp(mevent)
      89. Me._MouseState = MouseState.Hover
      90. Me.Invalidate()
      91. End Sub
      93. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      94. MyBase.OnPaint(e)
      95. e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
      96. Dim globalRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(0, 0, Me.Width - 1, Me.Height - 1), 8)
      97. If Me._MouseState = MouseState.None Then
      98. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1, Me._Color2), globalRect)
      99. ElseIf Me._MouseState = MouseState.Hover Then
      100. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1H, Me._Color2H), globalRect)
      101. ElseIf Me._MouseState = MouseState.Pressed Then
      102. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color2H, Me._Color1H), globalRect)
      103. End If
      104. e.Graphics.FillPath(New System.Drawing.Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.WideUpwardDiagonal, System.Drawing.Color.FromArgb(&H0), System.Drawing.Color.FromArgb(&HF000000)), globalRect)
      105. Dim TextSize As Drawing.SizeF = e.Graphics.MeasureString(Me.Text, Me.Font, Me.Width)
      106. e.Graphics.DrawString(Me.Text, Me.Font, New Drawing.SolidBrush(Me.ForeColor), New Drawing.Point(5, 5))
      107. e.Graphics.DrawString(Me._TextInfo, Me._InfoTextFont, New Drawing.SolidBrush(Me._InfoTextColor), New Drawing.Point(10, CInt(TextSize.Height + 5)))
      108. e.Graphics.DrawPath(Drawing.Pens.DimGray, globalRect)
      109. End Sub
      111. Sub New()
      112. Me._Color1 = Drawing.Color.FromArgb(255, 45, 142, 232)
      113. Me._Color2 = Drawing.Color.FromArgb(255, 39, 123, 204)
      115. Me._Color1H = System.Drawing.Color.FromArgb(Me._Color1.A, CInt(Me._Color1.R * 0.9), CInt(Me._Color1.G * 0.9), CInt(Me._Color1.B * 0.9))
      116. Me._Color2H = System.Drawing.Color.FromArgb(Me._Color2.A, CInt(Me._Color2.R * 0.9), CInt(Me._Color2.G * 0.9), CInt(Me._Color2.B * 0.9))
      118. Me.Size = New System.Drawing.Size(125, 40)
      119. Me._MouseState = MouseState.None
      120. Me.Cursor = Windows.Forms.Cursors.Hand
      121. Me._InfoTextColor = Drawing.Color.FromArgb(25, 25, 25)
      123. Me._TextInfo = "Information..."
      124. Me._InfoTextFont = New Drawing.Font(Me.Font.FontFamily, 7)
      125. End Sub
      127. End Class


      ProgressBar.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. Public Class ProgressBar
      5. Inherits System.Windows.Forms.Control
      7. Private _Color1 As System.Drawing.Color
      8. <Category("Progressbar")> _
      9. Public Property Color1 As System.Drawing.Color
      10. Get
      11. Return Me._Color1
      12. End Get
      13. Set(ByVal value As System.Drawing.Color)
      14. Me._Color1 = value
      15. Me.Invalidate()
      16. End Set
      17. End Property
      18. Private _Color2 As System.Drawing.Color
      19. <Category("Progressbar")> _
      20. Public Property Color2 As System.Drawing.Color
      21. Get
      22. Return Me._Color2
      23. End Get
      24. Set(ByVal value As System.Drawing.Color)
      25. Me._Color2 = value
      26. Me.Invalidate()
      27. End Set
      28. End Property
      30. Private _Minimum As UInteger
      31. <Category("Progressbar")> _
      32. Public Property Minimum As UInteger
      33. Get
      34. Return Me._Minimum
      35. End Get
      36. Set(ByVal value As UInteger)
      37. If value > Me._Maximum Then Throw New Exception("Minimum value cant be greater than maximum value")
      38. Me._Minimum = value
      39. End Set
      40. End Property
      41. Private _Maximum As UInteger
      42. <Category("Progressbar")> _
      43. Public Property Maximum As UInteger
      44. Get
      45. Return Me._Maximum
      46. End Get
      47. Set(ByVal value As UInteger)
      48. If value < Me._Minimum Then Throw New Exception("Maximum value cant be less than minimum value")
      49. Me._Maximum = value
      50. End Set
      51. End Property
      52. Private _Value As UInteger
      53. <Category("Progressbar")> _
      54. Public Property Value As UInteger
      55. Get
      56. Return Me._Value
      57. End Get
      58. Set(ByVal value As UInteger)
      59. If value < Me._Minimum OrElse value > Me._Maximum Then Throw New Exception("Value must be beteween minimum and maximum value")
      60. Me._Value = value
      61. End Set
      62. End Property
      64. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      65. MyBase.OnPaint(e)
      66. e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
      67. Dim globalRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(0, 0, Me.Width - 1, Me.Height - 1), 8)
      68. Dim valueRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(0, 0, (CInt((Me.Width) * Me._Value / Me._Maximum)), Me.Height - 1), 8)
      69. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Drawing.Color.FromArgb(255, 189, 189, 189), Drawing.Color.FromArgb(255, 219, 219, 219)), globalRect)
      70. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1, Me._Color2), valueRect)
      71. e.Graphics.FillPath(New System.Drawing.Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.WideUpwardDiagonal, System.Drawing.Color.FromArgb(&H0), System.Drawing.Color.FromArgb(&HF000000)), valueRect)
      72. e.Graphics.DrawPath(Drawing.Pens.LightSlateGray, valueRect)
      73. e.Graphics.DrawPath(Drawing.Pens.DimGray, globalRect)
      74. End Sub
      76. Sub New()
      77. Me._Minimum = 0
      78. Me._Maximum = 100
      79. Me._Value = 50
      80. Me._Color1 = Drawing.Color.FromArgb(255, 45, 142, 232)
      81. Me._Color2 = Drawing.Color.FromArgb(255, 39, 123, 204)
      83. Me.Size = New System.Drawing.Size(200, 10)
      84. Me.Text = ""
      85. End Sub
      87. End Class


      Part 2 kommt demnächst!:)

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

      Part 2!

      ProgressBarRound.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. Public Class ProgressBarRound
      5. Inherits System.Windows.Forms.Control
      7. Private _Color1 As System.Drawing.Color
      8. <Category("Progressbar")> _
      9. Public Property Color1 As System.Drawing.Color
      10. Get
      11. Return Me._Color1
      12. End Get
      13. Set(ByVal value As System.Drawing.Color)
      14. Me._Color1 = value
      15. Me.Invalidate()
      16. End Set
      17. End Property
      18. Private _Color2 As System.Drawing.Color
      19. <Category("Progressbar")> _
      20. Public Property Color2 As System.Drawing.Color
      21. Get
      22. Return Me._Color2
      23. End Get
      24. Set(ByVal value As System.Drawing.Color)
      25. Me._Color2 = value
      26. Me.Invalidate()
      27. End Set
      28. End Property
      30. Private _Minimum As UInteger
      31. <Category("Progressbar")> _
      32. Public Property Minimum As UInteger
      33. Get
      34. Return Me._Minimum
      35. End Get
      36. Set(ByVal value As UInteger)
      37. If value > Me._Maximum Then Throw New Exception("Minimum value cant be greater than maximum value")
      38. Me._Minimum = value
      39. Me.Invalidate()
      40. End Set
      41. End Property
      42. Private _Maximum As UInteger
      43. <Category("Progressbar")> _
      44. Public Property Maximum As UInteger
      45. Get
      46. Return Me._Maximum
      47. End Get
      48. Set(ByVal value As UInteger)
      49. If value < Me._Minimum Then Throw New Exception("Maximum value cant be less than minimum value")
      50. Me._Maximum = value
      51. Me.Invalidate()
      52. End Set
      53. End Property
      54. Private _Value As UInteger
      55. <Category("Progressbar")> _
      56. Public Property Value As UInteger
      57. Get
      58. Return Me._Value
      59. End Get
      60. Set(ByVal value As UInteger)
      61. If value < Me._Minimum OrElse value > Me._Maximum Then Throw New Exception("Value must be beteween minimum and maximum value")
      62. Me._Value = value
      63. Me.Invalidate()
      64. End Set
      65. End Property
      66. Private _RoundedWidth As Integer
      67. <Category("Progressbar")> _
      68. Public Property RoundedWidth As Integer
      69. Get
      70. Return Me._RoundedWidth
      71. End Get
      72. Set(ByVal value As Integer)
      73. Me._RoundedWidth = Value
      74. CheckWidth()
      75. Me.Invalidate()
      76. End Set
      77. End Property
      79. Protected Sub CheckWidth()
      80. If Me._RoundedWidth > Me.Width / 2 Then Me._RoundedWidth = CInt(Me.Width / 2) - 1
      81. End Sub
      83. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      84. MyBase.OnPaint(e)
      85. Try
      86. e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
      87. Dim globalRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(0, 0, Me.Width - 1, Me.Height - 1), 8)
      88. Dim myPath As New Drawing.Drawing2D.GraphicsPath()
      89. Dim winkel As Single = CSng(360 * Me._Value / Me._Maximum)
      90. myPath.AddArc(New Drawing.Rectangle(0, 0, Me.Width - 1, Me.Height - 1), 270, winkel)
      91. myPath.Reverse()
      92. Dim innerRect As New Drawing.Rectangle(_RoundedWidth, _RoundedWidth, Me.Width - (_RoundedWidth * 2) - 1, Me.Height - (_RoundedWidth * 2) - 1)
      93. myPath.AddArc(innerRect, 270, winkel)
      94. myPath.Reverse()
      95. myPath.CloseFigure()
      96. Dim pathGradient As New Drawing.Drawing2D.PathGradientBrush(myPath)
      97. pathGradient.CenterColor = Me._Color1
      98. pathGradient.SurroundColors = New Drawing.Color() {Me._Color2}
      99. e.Graphics.FillPath(pathGradient, myPath)
      100. e.Graphics.FillPath(New System.Drawing.Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.WideUpwardDiagonal, System.Drawing.Color.FromArgb(&H0), System.Drawing.Color.FromArgb(&HF000000)), myPath)
      101. e.Graphics.DrawPath(New Drawing.Pen(Drawing.Color.FromArgb(75, 75, 75)), myPath)
      102. Catch ex As Exception
      103. e.Graphics.DrawString("ERROR", New Drawing.Font("Arial", 12), Drawing.Brushes.Black, New Drawing.Point(5, 5))
      104. End Try
      105. End Sub
      107. Sub New()
      108. Me._Minimum = 0
      109. Me._Maximum = 100
      110. Me._Value = 50
      111. Me._RoundedWidth = 15
      112. Me._Color1 = Drawing.Color.FromArgb(255, 45, 142, 232)
      113. Me._Color2 = Drawing.Color.FromArgb(255, 39, 123, 204)
      114. Me.MinimumSize = New Drawing.Size(CInt(Me.Width / 2), CInt(Me.Height / 2))
      115. Me.Size = New System.Drawing.Size(100, 100)
      116. Me.Text = ""
      117. End Sub
      119. End Class


      Slider.vb
      (Noch in Arbeit!)
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. Public Class Slider
      5. Inherits System.Windows.Forms.Control
      7. Protected ReadOnly Property PointRect As System.Drawing.Rectangle
      8. Get
      9. Dim myPoint As New System.Drawing.Point((CInt(Me.Width * Me._Value / Me._Maximum)) - 12, 3)
      10. Dim myRect As New System.Drawing.Rectangle(myPoint, New System.Drawing.Size(13, 13))
      11. Return myRect
      12. End Get
      13. End Property
      15. Private _Color1 As System.Drawing.Color
      16. <Category("Progressbar")> _
      17. Public Property Color1 As System.Drawing.Color
      18. Get
      19. Return Me._Color1
      20. End Get
      21. Set(ByVal value As System.Drawing.Color)
      22. Me._Color1 = value
      23. Me.Invalidate()
      24. End Set
      25. End Property
      26. Private _Color2 As System.Drawing.Color
      27. <Category("Progressbar")> _
      28. Public Property Color2 As System.Drawing.Color
      29. Get
      30. Return Me._Color2
      31. End Get
      32. Set(ByVal value As System.Drawing.Color)
      33. Me._Color2 = value
      34. Me.Invalidate()
      35. End Set
      36. End Property
      38. Private _Minimum As UInteger
      39. <Category("Progressbar")> _
      40. Public Property Minimum As UInteger
      41. Get
      42. Return Me._Minimum
      43. End Get
      44. Set(ByVal value As UInteger)
      45. If value > Me._Maximum Then Throw New Exception("Minimum value cant be greater than maximum value")
      46. Me._Minimum = value
      47. End Set
      48. End Property
      49. Private _Maximum As UInteger
      50. <Category("Progressbar")> _
      51. Public Property Maximum As UInteger
      52. Get
      53. Return Me._Maximum
      54. End Get
      55. Set(ByVal value As UInteger)
      56. If value < Me._Minimum Then Throw New Exception("Maximum value cant be less than minimum value")
      57. Me._Maximum = value
      58. End Set
      59. End Property
      60. Private _Value As UInteger
      61. <Category("Progressbar")> _
      62. Public Property Value As UInteger
      63. Get
      64. Return Me._Value
      65. End Get
      66. Set(ByVal value As UInteger)
      67. If value < Me._Minimum OrElse value > Me._Maximum Then Throw New Exception("Value must be beteween minimum and maximum value")
      68. Me._Value = value
      69. End Set
      70. End Property
      72. Private _SlidingX As Integer
      73. Private _IsSliding As Boolean
      74. Public ReadOnly Property IsSliding As Boolean
      75. Get
      76. Return Me._IsSliding
      77. End Get
      78. End Property
      80. Protected Sub UpdateValue(ByVal v As Integer)
      81. If v >= Me._Minimum AndAlso v <= Me._Maximum Then
      82. Me._Value = CUInt(v) ' / Me._Maximum * Me.Width
      83. Me.Invalidate()
      84. End If
      85. End Sub
      86. Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs)
      87. MyBase.OnMouseDown(e)
      88. If Me.PointRect().Contains(e.Location) Then
      89. Me._IsSliding = True
      90. Me._SlidingX = e.X - Me.PointRect.Width
      91. UpdateValue(Me._SlidingX)
      92. End If
      93. End Sub
      94. Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs)
      95. MyBase.OnMouseUp(e)
      96. Me._IsSliding = False
      97. End Sub
      98. Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs)
      99. MyBase.OnMouseMove(e)
      100. If Me._IsSliding Then
      101. Dim truePosition As Integer = e.X - Me._SlidingX
      102. UpdateValue(truePosition)
      103. End If
      104. End Sub
      106. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      107. MyBase.OnPaint(e)
      108. e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
      109. Dim globalRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(5, 5, Me.Width - 11, Me.Height - 11), 8)
      110. Dim valueRect As System.Drawing.Drawing2D.GraphicsPath = GraphicsHelper.DrawRoundedRectangle(New System.Drawing.Rectangle(5, 5, (CInt(Me.Width * Me._Value / Me._Maximum)), Me.Height - 11), 8)
      111. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Drawing.Color.FromArgb(255, 189, 189, 189), Drawing.Color.FromArgb(255, 219, 219, 219)), globalRect)
      112. e.Graphics.FillPath(New System.Drawing.Drawing2D.LinearGradientBrush(New System.Drawing.Point(0, 0), New System.Drawing.Point(0, Me.Height - 1), Me._Color1, Me._Color2), valueRect)
      113. e.Graphics.DrawPath(Drawing.Pens.LightSlateGray, valueRect)
      114. e.Graphics.DrawPath(Drawing.Pens.DimGray, globalRect)
      115. Dim myPoint As System.Drawing.Point = Me.PointRect().Location
      116. e.Graphics.FillEllipse(New System.Drawing.Drawing2D.LinearGradientBrush(myPoint, New System.Drawing.Point(myPoint.X + 13, 13), Drawing.Color.Gray, Drawing.Color.LightGray), Me.PointRect())
      117. e.Graphics.DrawEllipse(Drawing.Pens.DimGray, Me.PointRect())
      118. End Sub
      120. Sub New()
      121. Me._Minimum = 0
      122. Me._Maximum = 100
      123. Me._Value = 50
      124. Me._Color1 = Drawing.Color.FromArgb(255, 45, 142, 232)
      125. Me._Color2 = Drawing.Color.FromArgb(255, 39, 123, 204)
      127. Me.Size = New System.Drawing.Size(200, 20)
      128. Me.Text = ""
      129. End Sub
      131. End Class


      Und zu guter letzt das Modul für die DrawRoundRectangle Funktion (sollte eigentlich anders heißen)
      GraphicsHelper.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class GraphicsHelper
      3. Public Shared Function DrawRoundedRectangle(ByVal Rect As System.Drawing.Rectangle, ByVal Radius As Single) As System.Drawing.Drawing2D.GraphicsPath
      5. Dim retPath As New System.Drawing.Drawing2D.GraphicsPath()
      7. 'Dim g As Graphics
      8. Dim BaseRect As New System.Drawing.RectangleF(Rect.X, Rect.Y, Rect.Width,
      9. Rect.Height)
      10. Dim ArcRect As New System.Drawing.RectangleF(BaseRect.Location,
      11. New System.Drawing.SizeF(Radius, Radius))
      12. 'top left Arc
      13. retPath.AddArc(ArcRect, 180, 90)
      14. retPath.AddLine(Rect.X + CInt(Radius / 2),
      15. Rect.Y,
      16. Rect.X + Rect.Width - CInt(Radius / 2),
      17. Rect.Y)
      19. ' top right arc
      20. ArcRect.X = BaseRect.Right - Radius
      21. retPath.AddArc(ArcRect, 270, 90)
      22. retPath.AddLine(Rect.X + Rect.Width,
      23. Rect.Y + CInt(Radius / 2),
      24. Rect.X + Rect.Width,
      25. Rect.Y + Rect.Height - CInt(Radius / 2))
      27. ' bottom right arc
      28. ArcRect.Y = BaseRect.Bottom - Radius
      29. retPath.AddArc(ArcRect, 0, 90)
      30. retPath.AddLine(Rect.X + CInt(Radius / 2),
      31. Rect.Y + Rect.Height,
      32. Rect.X + Rect.Width - CInt(Radius / 2),
      33. Rect.Y + Rect.Height)
      35. ' bottom left arc
      36. ArcRect.X = BaseRect.Left
      37. retPath.AddArc(ArcRect, 90, 90)
      38. retPath.AddLine(Rect.X, Rect.Y + CInt(Radius / 2),
      39. Rect.X,
      40. Rect.Y + Rect.Height - CInt(Radius / 2))
      42. Return retPath
      43. End Function
      45. End Class


      Viel Spaß! :)

      #Edit
      Hier ein Screenshot

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

      //Edit: -.-
      "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

      Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

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

      Grade selbst gemerkt, dass ich den letzten Scheiss geschrieben hab.
      Hatte nen anderes Event im Kopf mit dem sich hier mal jemand nen super Projekt
      versaut hat. Ich gehs gleich mal raussuchen.

      Oh Man, Grüße
      "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

      Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!