Private MyWebClient As WebClient
Private Sub MyWebClient_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
If e.Error IsNot Nothing Then
MessageBox.Show(e.Error.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf e.Cancelled = True Then
MessageBox.Show("下载文件操作被取消", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("下载文件操作完成", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub MyWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
Me.Progressbar1.Value = e.ProgressPercentage
Me.Label4.Text = "已经下载" + e.BytesReceived.ToString + "字节,全部有" + e.TotalBytesToReceive.ToString + "字节"
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyWebClient = New WebClient
AddHandler MyWebClient.DownloadFileCompleted, AddressOf MyWebClient_DownloadFileCompleted
AddHandler MyWebClient.DownloadProgressChanged, AddressOf MyWebClient_DownloadProgressChanged
End Sub
Private Sub button1_click(ByVal sender As Object, ByVal e As EventArgs)
Try
Me.progressbar1.value = 0
Me.MyWebClient.DownloadFileAsync(New Uri(Me.TextBox1.Text), Me.TextBox2.Text)
Catch ex As Exception
End Try
End Sub