16,554
社区成员
发帖
与我相关
我的任务
分享
Dim myWebClient As WebClient
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click, Button5.Click
For n = 0 To ListBox2.Items.Count - 1 'listbox2中存放着需要下载的文件列表
myWebClient = New Net.WebClient
AddHandler myWebClient.DownloadProgressChanged, AddressOf ShowDownProgress '捕获下载进度
AddHandler myWebClient.DownloadDataCompleted, AddressOf DownloadDataCallback '捕获是否下载完成
myWebClient.DownloadDataAsync(New Uri(ListBox2.Items(n)), n.ToString & ".rar")
Next
End Sub
'这里是进度条显示
Private Sub ShowDownProgress(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
ProgressBar1.Value = e.ProgressPercentage
End Sub
'这里是完成部分
Private Sub DownloadDataCallback(ByVal sender As Object, ByVal e As DownloadDataCompletedEventArgs)
ListBox1.Items.Add(ListBox2.Items(n) & " 下载完成...")
End Sub