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

发布时间：2020-07-16 04:21:29 所属栏目：asp.Net 来源：互联网

导读：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

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(); }

（编辑：岳阳站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!