Progressbar mit Net.WebClient

  • VB.NET

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

    Progressbar mit Net.WebClient

    VB.NET-Quellcode

    1. TextBox1.Text = New Net.WebClient().DownloadString("http://www.link.net/client/link1.txt")
    2. TextBox2.Text = New Net.WebClient().DownloadString("http://www.link.net/client/prozess1.txt")
    3. TextBox3.Text = New Net.WebClient().DownloadString("http://www.link.net/client/dll1.txt")
    6. Dim dateiPfad As String = My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox3.Text
    7. Dim internetPfad As String = TextBox1.Text
    8. Dim client As New System.Net.WebClient
    9. client.DownloadFile(internetPfad, dateiPfad)


    Ich habe eine frage kann ich das mit der Progressbar verbinden ?

    VB.NET-Quellcode

    1. Friend WithEvents MyWebClient As New Net.WebClient
    3. Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
    4. Form2.ProgressBar1.Value = e.ProgressPercentage
    5. End Sub



    Nur warum wird mir nix angezeigt auf der progressbar wo liegt mein fehler?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. TextBox1.Text = New Net.WebClient().DownloadString("http://www.link.net/client/link1.txt")
    6. TextBox2.Text = New Net.WebClient().DownloadString("http://www.blabla/client/prozess1.txt")
    7. TextBox3.Text = New Net.WebClient().DownloadString("http://www.blabl.net/client/dll1.txt")
    10. Dim dateiPfad As String = My.Computer.FileSystem.SpecialDirectories.Temp & "/" & TextBox3.Text
    11. Dim internetPfad As String = TextBox1.Text
    12. Dim client As New System.Net.WebClient
    13. client.DownloadFile(internetPfad, dateiPfad)
    16. Timer1.Interval = 50
    17. Timer1.Start()
    18. End Sub
    20. End Class


    Und
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class test1
    4. Friend WithEvents MyWebClient As New Net.WebClient
    6. Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles MyWebClient.DownloadProgressChanged
    7. Form2.ProgressBar1.Value = e.ProgressPercentage
    8. End Sub


    nur was mache ich falsch ja ich habe getestet .

    Auch mit ASync würde es nicht funktionieren weil er immernoch die WebClients neu Instanziert

    VB.NET-Quellcode

    1. Dim client As New System.Net.WebClient
    2. client.DownloadFile(internetPfad, dateiPfad)


    Du hast doch nun eine Instanz des WebClients mit Namen MyWebClient dann nutze den gefälligst auch für den Download. Es muss natürlich ein Bezug zu der Instanz sein damit das Event auch gerised werden kann.

    Dodo schrieb:

    weil er immernoch die WebClients neu Instanziert

    Mit AddHandler ist doch kein Problem.

    VB.NET-Quellcode

    1. Private _RemoteFile As String = "http://mirror.ox.ac.uk/sites/releases.ubuntu.com/releases//maverick/ubuntu-10.10-desktop-i386.iso"
    2. Private _LocalFile As String = "c:\temp\ubuntu32.iso"
    4. Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    5. ProgressBar1.Value = 0
    6. Label1.Text = String.Empty
    7. If e.Cancelled Then
    8. MessageBox.Show("Download wurde abgebrochen.", "Download", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    9. Else
    10. MessageBox.Show("Download erfolgreich abgeschlossen", "Download", MessageBoxButtons.OK, MessageBoxIcon.Information)
    11. End If
    12. End Sub
    14. Private Sub DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
    15. ProgressBar1.Value = e.ProgressPercentage
    16. Label1.Text = e.BytesReceived.ToString("0,0") & " Byte(s) von " & e.TotalBytesToReceive.ToString("0,0") & " Bytes heruntergeladen. - (" & (e.BytesReceived / e.TotalBytesToReceive).ToString("P") & ")"
    17. End Sub
    19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    20. Dim myClient As New Net.WebClient
    21. AddHandler myClient.DownloadFileCompleted, AddressOf Me.DownloadFileCompleted
    22. AddHandler myClient.DownloadProgressChanged, AddressOf Me.DownloadProgressChanged
    23. myClient.DownloadFileAsync(New Uri(_RemoteFile), _LocalFile)
    24. End Sub

Facebook
Telefonspende