vb.net2005里 webclient实现文件下载

Private WithEvents myWebclient As WebClient
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim remoteUri As String = " http://office.9zp.com/UploadFile/Word排版艺术.rar"
        Dim fileName As String = "C:/xx.rar"
        myWebclient = New WebClient()
        myWebclient.DownloadFileAsync(New Uri(remoteUri), fileName)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        myWebclient.CancelAsync()   '中断下载
    End Sub
    Private Sub myWebclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles myWebclient.DownloadFileCompleted
        MsgBox("下载完毕")
    End Sub
    Private Sub myWebclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles myWebclient.DownloadProgressChanged
        Me.Label1.Text = CStr(e.UserState) & "    downloaded " & e.BytesReceived & " of " & e.TotalBytesToReceive & " bytes. " & e.ProgressPercentage & " % complete..."
    End Sub
 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值