vb.net显示下载进度的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net或c#怎么实现仿迅雷下载列表，要带进度条，记录文档以何种方式保存，下载完的记录加载到已

首先，是这样的，你要是只是想实现类似迅雷下载列表的功能，还是可以的，但是，要是在展现也就是说界面上的样子，也和迅雷的一样，那你就要自己重绘窗体还要结合美工技术才能做出来。

如果只是实现功能，可以看一下的讲解：

进度条的问题：如果只是一个进度条，那就不用多线程技术，因为只控制一个进度而已，如果向迅雷那样，实时的显示多个进度，那就要多个线程了，一个线程控制一个进度。

记录文档用何种方式：这个其实很简单，如果，你要是有数据库，那就最好存在数据库中，方便存储管理，网络数据库的话，有很多中，比如Mysql，oracle，本地数据有sqlite，access等，要是采用文件存储的话，可以用ini文件，xml文件或是简单点直接文本文件也是可以的。

下载完的记录加载到已完成列表，没下载完的记录自动加载到下载列表

其实这个也不难的，在控制进度的条的方法中，增加一if判断，如果能100%就将信息加载到完成列表，在判断中计数如果多次判断都没有进度，就认为文件现在失败，就在现在信息添加到未完成列表。

以上只是分析实现过程，实例的话，那会很多，也很复杂，以上内同纯手打，如果您觉得满意，请采纳我的回答，也不枉费我这么认真分析，多谢了。

相关问答

Q1: VB.NET显示程序的进度，该怎么做？

VB本身有进度条控件。程序启动时加载多少控配置，组件都是编写源码时可知的。进度条的上限就是加载组件，配置数的和，加载成功一个就自加1

Q2: VB用Inet下载文件,要显示进度

VERSION 5.00

Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"

Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"

Begin VB.Form Form1

Caption = "带进度条文件下载"

ClientHeight = 1785

ClientLeft = 60

ClientTop = 450

ClientWidth = 8250

BeginProperty Font

Name = "Tahoma"

Size = 8.25

Charset = 0

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

ScaleHeight = 1785

ScaleWidth = 8250

ShowInTaskbar = 0 'False

StartUpPosition = 3 '窗口缺省

Begin MSComctlLib.ProgressBar ProgressBar1

Height = 375

Left = 240

TabIndex = 5

Top = 1200

Width = 7575

_ExtentX = 13361

_ExtentY = 661

_Version = 393216

Appearance = 1

End

Begin VB.TextBox txtURL

Height = 405

Left = 1080

TabIndex = 3

Top = 120

Width = 5415

End

Begin VB.CommandButton cmdGET

Caption = "开始下载"

Height = 480

Left = 6600

TabIndex = 2

Top = 120

Width = 1215

End

Begin VB.TextBox savefile

Height = 375

Left = 1440

TabIndex = 0

Top = 600

Width = 5055

End

Begin InetCtlsObjects.Inet Inet1

Left = 7680

Top = 600

_ExtentX = 1005

_ExtentY = 1005

_Version = 393216

End

Begin VB.Label Label2

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "下载地址："

Height = 195

Left = 120

TabIndex = 4

Top = 120

Width = 900

End

Begin VB.Label Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "文件保存位置："

Height = 195

Left = 120

TabIndex = 1

Top = 720

Width = 1260

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub cmdGET_Click()

StartDownLoad txtURL.Text

End Sub

Private Sub Form_Load()

savefile.Text = App.Path

End Sub

Private Sub StartDownLoad(ByVal Geturl As String)

Dim spo%, filename$

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(App.Path "\download") Then Set f = fso.CreateFolder(App.Path "\download")

spo = InStrRev(Geturl, "/")

filename = Right(Geturl, Len(Geturl) - spo) '获取文件名

savefile.Text = App.Path "\download\" filename

Inet1.Execute Geturl, "get" '开始下载

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

'State = 12 时，用 GetChunk 方法检索服务器的响应。

Dim vtData() As Byte

Select Case State

'...没有列举其它情况。

Case icError '11

'出现错误时，返回 ResponseCode 和 ResponseInfo。

vtData = Inet1.ResponseCode ":" Inet1.ResponseInfo

Case icResponseCompleted ' 12

Dim bDone As Boolean: bDone = False

'取得第一个块。

vtData() = Inet1.GetChunk(1024, 1)

DoEvents

Open savefile.Text For Binary Access Write As #1 '设置保存路径文件后开始保存

'获取下载文件长度

If Len(Inet1.GetHeader("Content-Length")) 0 Then ProgressBar1.Max = CLng(Inet1.GetHeader("Content-Length"))

'循环分块下载

Do While Not bDone

Put #1, Loc(1) + 1, vtData()

vtData() = Inet1.GetChunk(1024, 1)

DoEvents

ProgressBar1.Value = Loc(1) '设置进度条长度

If Loc(1) = ProgressBar1.Max Then bDone = True

Loop

Close #1

MsgBox "下载完成", vbInformation, "通知"

End Select

End Sub

Q3: 关于VB.NET中进度条使用问题

VB.Net中提供vb.net显示下载进度了ProgressBar控件vb.net显示下载进度，用于显示进度条

设置ProgressBarvb.net显示下载进度的Minimum和Maximum属性为循环vb.net显示下载进度的起始和终止数值

然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，

将进度显示在进度条上

Q4: vb.net 如何用进度条显示数据查询进度?

有不是多线程的，.NET有一个异步控件来完成这个事情，BackgroundWorker。

多线程其实比你想象的简单，你计划操作步骤，打比方说我们处理一个文件，用进度条来显示进度。我们可以定义解压他进度为5%，解密文件后哦进度完成20%，读取数据后进度完成30%，重新整理插入数据后进度完成60%，再加密，进度为80%，再压缩进度为90%，再发送进度为95%，删除历史记录结束动作进度为100%。这种事就要多线程去完成，调用控件你就需要委托或者回调控件。

进度条给他赋值就好了，程序运行后你会发现进度条在动。

这是现在90%程序进度条原理。

Q5: vb.net，用 My.Computer.Network.DownloadFile下载文件怎么显示进度

检查一下vb.net显示下载进度你的下载地址是否有效vb.net显示下载进度，用户名和密码是否可用。

如果正常下载vb.net显示下载进度，进度条是可以正常显示的。vb 2010 刚刚试了

关于vb.net显示下载进度和的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。