1

我正在尝试使用 4 个网络客户端同时下载 4 个文件。它同时下载所有 4 个文件，但前两个的进度条工作正常，第三个进度条与第一个完全相同，第四个进度条与第二个完全相同。这是我与该问题相关的代码。

Public WithEvents downloadFile1 As WebClient
Public WithEvents downloadFile2 As WebClient
Public WithEvents downloadFile3 As WebClient
Public WithEvents downloadFile4 As WebClient

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    System.Net.ServicePointManager.DefaultConnectionLimit = 10
End Sub


Private Sub startDownloadFile1()

    downloadFile1 = New WebClient
    Dim targetURL As String = lstURLs.Items.Item(0)
    Dim destinationPath As String = "e:\Downloads\0.jpg"
    downloadFile1.DownloadFileAsync(New Uri(targetURL), destinationPath)

End Sub

Private Sub startDownloadFile2()

    downloadFile2 = New WebClient
    Dim targetURL As String = lstURLs.Items.Item(1)
    Dim destinationPath As String = "e:\Downloads\1.jpg"
    downloadFile2.DownloadFileAsync(New Uri(targetURL), destinationPath)

End Sub

和 startDownloadFile3() 和 startDownloadFile() 类似

Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
    startDownloadFile1()
    startDownloadFile2()
    startDownloadFile3()
    startDownloadFile4()
End Sub

Private Sub downloadFile1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloadFile1.DownloadProgressChanged

    pb1.Value = e.ProgressPercentage

End Sub

Private Sub downloadFile2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloadFile2.DownloadProgressChanged

    pb2.Value = e.ProgressPercentage

End Sub

Private Sub downloadFile3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloadFile1.DownloadProgressChanged

    pb3.Value = e.ProgressPercentage

End Sub

Private Sub downloadFile4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloadFile2.DownloadProgressChanged

    pb4.Value = e.ProgressPercentage

End Sub
4

1 回答 1

2 
Private Sub downloadFile3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles **downloadFile1.**DownloadProgressChanged

   pb3.Value = e.ProgressPercentage

End Sub

Private Sub downloadFile4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles **downloadFile2.**DownloadProgressChanged

    pb4.Value = e.ProgressPercentage

更改为：简单错误

Private Sub downloadFile3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles **downloadFile3.**DownloadProgressChanged

   pb3.Value = e.ProgressPercentage

End Sub

Private Sub downloadFile4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles **downloadFile4.**DownloadProgressChanged

    pb4.Value = e.ProgressPercentage
于 2013-05-30T14:52:18.220 回答