отличный пример, спасиба но возникает проблема если нужно сделать одновременную закачку 10 файлов
| Код |
Private Sub ButtonDownload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonDownload.Click
wc1.DownloadFileAsync(New Uri(Me.TextBoxURI1.Text), Me.TextBoxFileName1.Text)
wc2.DownloadFileAsync(New Uri(Me.TextBoxURI2.Text), Me.TextBoxFileName2.Text)
wc3.DownloadFileAsync(New Uri(Me.TextBoxURI3.Text), Me.TextBoxFileName3.Text)
wc4.DownloadFileAsync(New Uri(Me.TextBoxURI4.Text), Me.TextBoxFileName4.Text)
End Sub
Private Sub wc1_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc1.DownloadFileCompleted
Me.ProgressBar1.Value = 0
End Sub
Private Sub wc1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc1.DownloadProgressChanged
Me.ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub wc2_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc2.DownloadFileCompleted
Me.ProgressBar2.Value = 0
End Sub
Private Sub wc2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc2.DownloadProgressChanged
Me.ProgressBar2.Value = e.ProgressPercentage
End Sub
Private Sub wc3_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc3.DownloadFileCompleted
Me.ProgressBar3.Value = 0
End Sub
Private Sub wc3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc3.DownloadProgressChanged
Me.ProgressBar3.Value = e.ProgressPercentage
End Sub
Private Sub wc4_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc4.DownloadFileCompleted
Me.ProgressBar4.Value = 0
End Sub
Private Sub wc4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc4.DownloadProgressChanged
Me.ProgressBar4.Value = e.ProgressPercentage
End Sub
|
отображается прогреcc так: 1-2 progressbar'a движутся, следующие начинают двигаться после закачки предыдущих. как быть? |
