Eignene ProgressBar "Designen"

  • VB.NET
  • .NET (FX) 4.0

Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Jason schrieb:

    eigene ProgressBars
    Mach Dir eine Klasse, lass sie von PictureBox erben, gib ihr die Properties Minimum, Maximum, Value und das Paint-Event, in dem Du das ganze künstlerisch umsetzt.
    Feddich.
    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!

    nafets schrieb:

    PictureBox
    Es muss nur gemalt werden, sonst nix.
    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!

    -> Wie erstelle ich eine eigene ProgressBar sauber und flüssig?

    ---

    Bei mir werden die Imports Grün unterstrichen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Windows.Forms 'Dies brauchen wir für das "Control", da dies zu Windows.Forms gehört
    3. Imports System.Drawing 'Brauchen wir für GDI+
    4. Imports System.Drawing2D 'Brauchen wir für Brushes etc.
    5. Imports System.Drawing.Text 'Brauchen wir für TextRendering​


    Warum?

    Jason schrieb:

    Warum?
    Ist das ne DLL?
    Da musst Du die entsprechenden Verweise hinzufügen, schreib sie von einer WinForms-Anwendung ab.
    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!

    Achso :D
    Ja das ist ein DLL.

    ---

    Ich kann keinen Verweis für Imports System.Drawing2D finden.
    Ich kann den nur durch System.Drawing.Drawing2D ersetzen.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Jason“ ()

    An welche Stelle im Code müssen die Properties eingefügt werden?

    VB.NET-Quellcode

    1. Dim max As Integer = 100
    2. <Category("Werte")>
    3. Public Property Maximum() As Integer
    4. Get
    5. Return max
    6. End Get
    7. Set(ByVal value As Integer)
    8. max = value
    9. Me.Invalidate()
    10. End Set
    11. End Property
    12. Dim min As Integer = 0
    13. <Category("Werte")>
    14. Public Property Minimum() As Integer
    15. Get
    16. Return min
    17. End Get
    18. Set(ByVal value As Integer)
    19. min = value
    20. Me.Invalidate()
    21. End Set
    22. End Property
    23. Dim val As Integer = 70
    24. <Category("Werte")>
    25. Public Property Value() As Integer
    26. Get
    27. Return val
    28. End Get
    29. Set(ByVal value As Integer)
    30. val = value
    31. Me.Invalidate()
    32. End Set
    33. End Property
    34. ​

    Das ist so gesehen komplett egal, ich würde sie aber oben hinterlegen.

    Grüße
    #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 :!:

    Ich bekomme in der Zeile einen Fehler.
    Dim Balkenfarbe As Color = Me.BalkenColor


    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    2. MyBase.OnPaint(e)
    3. With e.Graphics
    4. .SmoothingMode = SmoothingMode.HighQuality
    5. .TextRenderingHint = TextRenderingHint.AntiAlias
    6. .PixelOffsetMode = PixelOffsetMode.HighQuality
    7. .InterpolationMode = InterpolationMode.HighQualityBilinear
    8. .CompositingQuality = CompositingQuality.HighQuality
    9. Dim HintergrundHoehe As Integer = MyBase.ClientRectangle.Height
    10. 'Die Höhe des Hintergrunds
    11. Dim HintergrundBreite As Integer = MyBase.ClientRectangle.Width
    12. 'Die Breite des Hntergrunds
    13. Dim BalkenHoehe As Integer = CInt(MyBase.ClientRectangle.Height)
    14. 'Die Höhe des Balken (entspricht der Höhe des Hintergrunds)
    15. Dim BalkenBreite As Integer = Width * (Value - Minimum) \ (Maximum - Minimum)
    16. 'Die Value ändert sich dann immer und das Ganze wird neu berechnet, sodass der Balken länger wird
    17. Dim Hintergrundfarbe As Color = Color.White
    18. 'Wir setzen die Hintergrundfarbe auf weiß. (benutzerdefiniert)
    19. Dim Balkenfarbe As Color = Me.BalkenColor
    20. 'Wir setzen die Balkenfarbe auf grün (benutzerdefiniert)
    21. Dim hintergrundrect As New Rectangle(0, 0, HintergrundBreite, HintergrundHoehe)
    22. 'Wir erstellen ein neues Rectangle mit der Location (0,0) und den Werten der oben deklarierten Variablen
    23. .FillRectangle(New SolidBrush(Hintergrundfarbe), hintergrundrect)
    24. 'Wir füllen das Rectangle mit einer SolidBrush (festen Farbe)
    25. Dim balkenrect As New Rectangle(0, 0, BalkenBreite, BalkenHoehe)
    26. 'Wir erstellen ein neues Rectangle für den Balken mit der Location (0,0) und den Werten der oben deklarierten Variablen
    27. .FillRectangle(New SolidBrush(Balkenfarbe), balkenrect)
    28. 'Wir füllen das Rectangle wieder mit einer SolidBrush (festen Farbe)
    29. End With
    30. End Sub

    So, Die DLL ist jetzt fertig.
    Ist der Code so korrekt?

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Windows.Forms 'Dies brauchen wir für das "Control", da dies zu Windows.Forms gehört
    3. Imports System.Drawing 'Brauchen wir für GDI+
    4. Imports System.Drawing.Drawing2D 'Brauchen wir für Brushes etc.
    5. Imports System.Drawing.Text 'Brauchen wir für TextRendering
    6. Imports System.ComponentModel
    8. Public Class ProgBarDES
    9. Inherits Control
    11. Dim max As Integer = 100
    12. <Category("Werte")>
    13. Public Property Maximum() As Integer
    14. Get
    15. Return max
    16. End Get
    17. Set(ByVal value As Integer)
    18. max = value
    19. Me.Invalidate()
    20. End Set
    21. End Property
    22. Dim min As Integer = 0
    23. <Category("Werte")>
    24. Public Property Minimum() As Integer
    25. Get
    26. Return min
    27. End Get
    28. Set(ByVal value As Integer)
    29. min = value
    30. Me.Invalidate()
    31. End Set
    32. End Property
    33. Dim val As Integer = 70
    34. <Category("Werte")>
    35. Public Property Value() As Integer
    36. Get
    37. Return val
    38. End Get
    39. Set(ByVal value As Integer)
    40. val = value
    41. Me.Invalidate()
    42. End Set
    43. End Property
    45. Public Sub New()
    46. MyBase.New()
    47. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
    48. UpdateStyles()
    49. Me.DoubleBuffered = True
    50. Me.SuspendLayout()
    51. Me.ResumeLayout(False)
    52. End Sub
    54. #Region "properties"
    56. #End Region
    58. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    59. MyBase.OnPaint(e)
    60. With e.Graphics
    61. .SmoothingMode = SmoothingMode.HighQuality
    62. .TextRenderingHint = TextRenderingHint.AntiAlias
    63. .PixelOffsetMode = PixelOffsetMode.HighQuality
    64. .InterpolationMode = InterpolationMode.HighQualityBilinear
    65. .CompositingQuality = CompositingQuality.HighQuality
    66. Dim HintergrundHoehe As Integer = MyBase.ClientRectangle.Height
    67. 'Die Höhe des Hintergrunds
    68. Dim HintergrundBreite As Integer = MyBase.ClientRectangle.Width
    69. 'Die Breite des Hntergrunds
    70. Dim BalkenHoehe As Integer = CInt(MyBase.ClientRectangle.Height)
    71. 'Die Höhe des Balken (entspricht der Höhe des Hintergrunds)
    72. Dim BalkenBreite As Integer = Width * (Value - Minimum) \ (Maximum - Minimum)
    73. 'Die Value ändert sich dann immer und das Ganze wird neu berechnet, sodass der Balken länger wird
    74. Dim Hintergrundfarbe As Color = Color.White
    75. 'Wir setzen die Hintergrundfarbe auf weiß. (benutzerdefiniert)
    76. Dim Balkenfarbe As Color = Color.Green ' <<<<<< FEHLER WAR HIER! <<<<<<
    77. 'Wir setzen die Balkenfarbe auf grün (benutzerdefiniert)
    78. Dim hintergrundrect As New Rectangle(0, 0, HintergrundBreite, HintergrundHoehe)
    79. 'Wir erstellen ein neues Rectangle mit der Location (0,0) und den Werten der oben deklarierten Variablen
    80. .FillRectangle(New SolidBrush(Hintergrundfarbe), hintergrundrect)
    81. 'Wir füllen das Rectangle mit einer SolidBrush (festen Farbe)
    82. Dim balkenrect As New Rectangle(0, 0, BalkenBreite, BalkenHoehe)
    83. 'Wir erstellen ein neues Rectangle für den Balken mit der Location (0,0) und den Werten der oben deklarierten Variablen
    84. .FillRectangle(New SolidBrush(Balkenfarbe), balkenrect)
    85. 'Wir füllen das Rectangle wieder mit einer SolidBrush (festen Farbe)
    86. End With
    87. End Sub
    89. End Class​

    Jason schrieb:

    VB.NET-Quellcode

    1. MyBase.OnPaint(e)
    ist nicht nötig.
    Wieso läuft dieser Code:

    VB.NET-Quellcode

    1. Me.ProgBarDES1.Value = Me.ProgBarDES1.Maximum * 100
    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!

    ​DoubleBuffered = True brauchst Du nicht, da Du das bereits bei den Styles setzt.
    Außerdem ist da eine leere Region.

    Gib' zudem doch immer Fehlermeldungen an, da können wir doch nicht raten...
    Ich hoffe, Du hast das Ganze auch mal ein wenig zum Lernen verwendet und nicht nur abgeschrieben, das war nicht die Intention meines Tutorials. Das ist btw ziemlich alt und ich würde heute die Nomenklatur etwas ändern (englisch). Das solltest Du noch machen.

    ​CInt würde ich btw rauswerfen, denn das bringt nichts, ist ja bereits ein Integer​, keine Ahnung, was ich mir dabei gedacht hatte, wie gesagt, das war noch zu meinen VB-Zeiten...

    Grüße
    #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 :!: