显示下载进度条的下载文件代码

VB.NET!–StartFragment– Public Shared Sub DownFile(ByVal URL As String, ByVal Filename As String, ByVal Prog As ProgressBar) Dim Myrq As HttpWebRequest = HttpWebRequest.Create(URL) Dim myrp As HttpWebResponse = Myrq.GetResponse Dim totalBy

<p style=”FONT-SIZE: 10pt”>VB.NET

<br clear=”all”><p style=”FONT-SIZE: 10pt”>

0 totalDownloadedByte = osize + totalDownloadedByte Application.DoEvents() so.Write(by,osize) Prog.Value = totalDownloadedByte osize = st.Read(by,by.LongLength) End While so.Close() st.Close() End Sub 0) { totalDownloadedByte = osize + totalDownloadedByte; Application.DoEvents(); so.Write(by,osize); Prog.Value = (int)totalDownloadedByte; osize = st.Read(by,(int)by.Length); } so.Close(); st.Close(); }

作者: dawei

【声明】:滨州站长网内容转载自互联网,其相关言论仅代表作者个人观点绝非权威,不代表本站立场。如您发现内容存在版权问题,请提交相关链接至邮箱:bqsm@foxmail.com,我们将及时予以处理。

为您推荐

【免责声明】本站内容转载自互联网,其发布内容言论不代表本站观点,如果其链接、内容的侵犯您的权益,烦请提交相关链接至邮箱xwei067@foxmail.com我们将及时予以处理。

Copygight © 2016-2024 https://www.0543zz.com All Rights Reserved.滨州站长网

站长:xwei067#foxmail.com(请把#换成@)

联系我们

联系我们

0577-28828765

在线咨询: QQ交谈

邮箱: xwei067@foxmail.com

工作时间:周一至周五,9:00-17:30,节假日休息