WebClient - Progressbar

  • Allgemein

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Gather.

    WebClient - Progressbar

    Kurze und Schnelle frage:

    (hallo ausserdem :D)
    Wie kann ich den Downloadstatus des Webclients in einer Progressbar anzeigen.
    Meine Vermutung war wiefolgt:

    VB.NET-Quellcode

    1. Private Sub wc_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
    2. ProgressBar1.Value = CUInt(e.ProgressPercentage)
    3. End Sub



    VB.NET-Quellcode

    1. If Not downloading Then
    2. downloading = True
    3. stp = Stopwatch.StartNew
    4. wc.DownloadFileAsync(New Uri("http://download.thinkbroadband.com/100MB.zip"), tmpfile)
    5. End If

    Bitte um Hilfe.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Sry dass ich vergessen habe den fehler anzugeben. Es passiert nichts mit der progressbar.
    Liegt das vielleicht daran dass es einfach nur extrem lange zum Downloaden braucht oder wie?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Es könnte natürlich auch einfach nur zu langsam gehen. Hast du schon mit dem Debugger (mit einem Haltepunkt) geprüft, ob das Event überhaupt ausgelöst wird? Ich kann mir vorstellen, dass bei sehr kleinen Downloads dieses Event auch nicht ausgelöst wird, sondern direkt das DownloadFileCompleted/DownloadStringCompleted-Event. Das solltest du sowieso abfragen:

    VB.NET-Quellcode

    1. Private Sub DownloadCompleted(sender As Object, e As AsyncCompletedEventHandler) Handles wc.DownloadFileCompleted
    2. ProgressBar1.Value = ProgressBar1.MaxValue
    3. End Sub

    Okey das ganze funktioniert mit einer normalen progressbar.
    Jedoch funktioniert es nicht mit dieser PRogressbar da sie CUINT konvertiertierung verlang.
    Progressbar

    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


    Das Problem ist, es funktioniert auch nicht, wenn ich überall UInteger in Integer verändere.

    Bitte um Hilfe.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Wie soll ich sie denn am anfang bringen wenn ich sie erst jetzt entdeckt habe?
    Naja ja sie funkt, es ist außerdem diese progressbar: [VB.NET] Meine Controls (Source)

    Bitte um hilfe.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Mal ne kurze offtopic frage, mit wem Redest du bitte?
    Warum also fragt er nicht...
    Naja Topic erledigt.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook
Telefonspende