Metro-ProgressBar

    • VB.NET

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

      Metro-ProgressBar

      Ich war am Wochenende krank :S und habe deswegen ein bisschen angefangen ein kleines Control zu schreiben.
      Der Code ist teilweise ziemlich ranzig, ich weiß. Aber da dies' mein erstes Control ist, bitte ich um rücksicht. Kritik ist seeehr gerne erwünscht, da ich mich im Bereich Controls weiterbilden möchte.

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.ComponentModel
      4. ''' <summary>
      5. ''' Eine ProgressBar im Metro-look.
      6. ''' </summary>
      7. Public Class MetroProgressBar
      8. Inherits Control
      10. 'Private Propertys
      11. Private _CValue As Integer
      12. Private _CWidth As Integer
      13. Private _MValue As Integer
      14. Private _MiValue As Integer
      15. Private _BGColor As Color = Color.FromArgb(230, 230, 230)
      16. Private _PColor As Color = Color.FromArgb(6, 176, 37)
      18. 'Public Propertys
      19. ''' <summary>
      20. ''' Gibt den aktuellen Wert der ProgressBar zurück oder legt diesen fest.
      21. ''' </summary>
      22. ''' <value>Den Wert der ProgressBar</value>
      23. ''' <returns>Den aktuellen Wert der ProgressBar</returns>
      24. <Browsable(True), Description("Der aktuelle Wert der ProgressBar.")> _
      25. Public Property Value As Integer
      26. Get
      27. Return _CValue
      28. Invalidate()
      29. End Get
      30. Set(value As Integer)
      31. If _CValue < _MValue Then
      32. _CValue = value
      33. _CWidth = CInt((Me.Width / 100) * value)
      34. Invalidate()
      35. End If
      36. End Set
      37. End Property
      39. ''' <summary>
      40. ''' Legt den Maximal-wert der ProgressBar fest oder ruft diesen ab.
      41. ''' </summary>
      42. ''' <value>Den Maximalwert der ProgressBar</value>
      43. ''' <returns>Den Maximal-wert der ProgressBar</returns>
      44. <Browsable(True), Description("Die Maximale Value der ProgressBar.")> _
      45. Public Property MaxValue As Integer
      46. Get
      47. Return _MValue
      48. End Get
      49. Set(value As Integer)
      50. _MValue = value
      51. Invalidate()
      52. End Set
      53. End Property
      55. Sub New()
      56. Me.Size = New Size(192, 23)
      57. Me.DoubleBuffered = True
      58. MaxValue = 100
      59. End Sub
      61. Protected Overrides Sub OnPaint(e As PaintEventArgs)
      62. MyBase.OnPaint(e)
      63. With e.Graphics
      64. 'Graphic Settings
      65. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      66. .TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
      67. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      68. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
      69. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      71. 'Draw Bar
      72. .FillRectangle(New SolidBrush(_BGColor), 0, 0, Width - 1, Height - 1)
      73. .DrawRectangle(New Pen(Color.FromArgb(188, 188, 188)), DisplayRectangle)
      75. 'Draw Progress
      76. .FillRectangle(New SolidBrush(_PColor), 1, 1, _CWidth, Height - 1)
      77. End With
      78. End Sub
      79. End Class

      CFHackerExtreme schrieb:

      Private Propertys

      Das sind in dem Fall keine Properties, sondern Felder bzw. Variablen, die du evtl umbenennen solltest (guideline-konform) mit UpperCamelCase usw.

      Du solltest den einzelnen Properties zudem noch Kategorien zuordnen, damit man das Zeugs besser findet.
      Das Browsable-Attribut brauchst du nicht, so lange du es nicht auf False setzt.

      MaxValue etc. würde ich einfach mit Maximum umschreiben, sieht besser aus und ist weiter verbreitet, zumal die normale ProgressBar das ja auch nutzt.
      Zudem fehlen da Imports-Direktiven. Den Konstruktor würde ich noch als Public modifizieren und die optimalen Einstellungen so aufrufen:

      VB.NET-Quellcode

      1. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
      2. UpdateStyles()


      Zudem berechnest du die Breite falsch. Die musst du so berechnen:

      VB.NET-Quellcode

      1. _CWidth * (_CValue - MinValue) \ (MaxValue - MinValue)


      Wozu brauchst du denn das TextRenderingHint? Du zeichnest ja keinen Text oder ähnliches, also schmeiß das raus.
      Ich würde zudem noch weitere Einstellungen überlassen, aber ok, das ist ja der Sourcecode-Austausch.
      Und der Englisch-Deutsch-Mischmasch ist auch nicht so gut. Zudem würde ich die Breite usw. dann in der OnPaint-Methode setzen, nicht in der Properties.
      #define for for(int z=0;z<2;++z)for // Have fun!
      Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

      Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

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

      CFHackerExtreme schrieb:

      Get Return _CValue Invalidate() End Get

      Wieso ein Invalidate im GET, das hat soziemlich 0 Sinn. Das muss da raus :)

    Facebook
    Telefonspende