Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新日志
测量资料内业小宝V6.0 build 03101 VB.NET实现资源文件释放
晴天 vb.net无控件实现文件下载   [ 日期:2016-10-25 ]

Imports System.Net

Public Class Form1

    Private WithEvents myWebclient As WebClient
    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

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim remoteUri As String = "http://j.union.ijinshan.com/jump.php?u_key=6453"
        Dim fileName As String = "C:\xx.rar"
        myWebclient = New WebClient()
        myWebclient.DownloadFileAsync(New Uri(remoteUri), fileName)
    End Sub
End Class
点评





[阅读字体大小: ]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=94
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=94&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情