Eigene Progressbar Fehler [VB 2012]

  • Allgemein

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Eigene Progressbar Fehler [VB 2012]

    Jaa hallo Leute ich habe gerade mithilfe von einem YouTube Video eine Progressbar versucht nur er gibt mir 2 Fehler bei den Farben aus...Warum?

    Das Rot makierte sind die Fehler


    Hier der ganze Code

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    3. Public Class Pbar
    5. Public Sub New()
    7. ' Dieser Aufruf ist für den Designer erforderlich.
    8. InitializeComponent()
    9. Label1.ForeColor = Color.Black
    10. Me.ForeColor = Color.DodgerBlue
    12. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    14. End Sub
    17. Protected percent As Double = 0.0
    20. Public Property Value As Double
    21. Get
    22. Return percent
    23. End Get
    24. Set(value As Double)
    25. If value < 0 Then value = 0 Else If value > 100 Then value = 100
    26. percent = value
    27. Label1.Text = value.ToString() + "%"
    28. Me.Invalidate()
    29. End Set
    30. End Property
    32. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    33. MyBase.OnPaint(e)
    34. Dim b As Brush = New SolidBrush(Me.ForeColor)
    35. Dim lb As New LinearGradientBrush(New Rectangle(0, 0, Me.Width, Me.Height), Color.DodgerBlue(255, Color.DodgerBlue),
    36. Color.DodgerBlue(50, Color.DodgerBlue), LinearGradientMode.ForwardDiagonal)
    37. Dim width As Integer = CInt(percent / 100 * Me.Width)
    38. e.Graphics.FillRectangle(b, 0, 0, width, Me.Height)
    39. e.Graphics.FillRectangle(lb, 0, 0, width, Me.Height)
    40. b.Dispose() : lb.Dispose()
    42. End Sub
    44. Private Sub Pbar_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
    45. Label1.Location = New Point(Me.Width / 2 - Label1.Width / 2, Me.Height / 2 - Label1.Height)
    46. End SubEnd Class




    Fehler ist in Zeile 35 + 36 mit dem Color.DodgerBlue

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „SelfOwn3D“ ()

    Du hast da geschrieben:

    VB.NET-Quellcode

    1. Color.DodgerBlue(255, Color.DodgerBlue)

    Color.DodgerBlue ist aber eine Eigenschaft, nähmlich die, die diese Farbe angibt.
    Du hast Color.DodgerBlue aber als Methode verwendet.
    Ich rate jetzt mal, was du wolltest:
    255 bzw 50 in der nächsten Zeile sind die Transparenzwerte?
    Dann muss das so aussehen:

    VB.NET-Quellcode

    1. Color.FromArgb(255, Color.DodgerBlue)

    bzw.

    VB.NET-Quellcode

    1. Color.FromArgb(50, Color.DodgerBlue)


    Falls 255 bzw. 50 keine Transparenzwerte sind, was dann?

    Ich hoffe, ich konnte dir helfen!
    MfG
    Hermann

    @Hermann
    Nein. Sorry hatte ich übersehen :)
    Es heißt natürlich Color.FromArgb(), wobei als Alpha-Wert werte von 0 - 255 gültig sind.

    Trotzdem glaube ich, dass er vergessen hat, System.Drawing zu importieren.



    Ich hab deinen Code mal angepasst:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Option Compare Binary
    5. Imports System.Drawing
    6. Imports System.Drawing.Drawing2D
    8. Public Class Pbar
    10. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    11. MyBase.OnPaint(e)
    12. Dim b As New SolidBrush(Me.ForeColor)
    13. Dim lb As New LinearGradientBrush(e.ClipRectangle, Color.FromARGB(255, Color.DodgerBlue), _
    14. Color.FromARGB(50, Color.DodgerBlue), LinearGradientMode.ForwardDiagonal)
    15. Dim width As Integer = CInt(percent / 100 * Me.Width)
    16. e.Graphics.FillRectangle(b, e.ClipRectangle)
    17. e.Graphics.FillRectangle(lb, e.ClipRectangle)
    18. b.Dispose() : lb.Dispose()
    20. End Sub
    21. End Class


    Ich habe folgendes verbessert:
    - Options hintugefügt
    - Imports angepasst
    - New Rectangle(0, 0, Me.Width, Me.Height) durch e.ClientRectangle ersetzt
    - Color.DodgerBlue(Das_ist_Mist) durch Color.FromArgb() ersetzt

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

    SelfOwn3D schrieb:

    ich habe gerade mithilfe von einem YouTube Video eine Progressbar versucht nur er gibt mir 2 Fehler bei den Farben aus...Warum?

    Der Fehler ist, einem utube-Tutorial ühaupt auf den Leim zu gehen (uTube-"Tutorials“ sind fast immer Mist).

    Wenn du proggen lernen willst, lerns richtig: dieses Buch Lesen