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

Posted 2023-04-02

我用VB.NET想做一个下载器，现有二个控件，Textbox1（用于存放要下载的资源的URL地址），下载按钮BUTTOM1.现在我增加一个进度条控件，现想在按下下载按钮下载资源的同时，用进度条显示下载进度，该如何写代码，谢谢。

VB.Net中提供了ProgressBar控件，用于显示进度条
设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值
然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，
将进度显示在进度条上追问

能给点主要代码吗，谢谢》》

追答

conn.open
dim dtr As OleDbDataReader = New OleDbCommand("Select count(id) as aa From [table]", Conn).ExecuteReader
if dtr.read then
dim count as Integer = dtr("aa")'共多少数据
end if
字数限制

参考技术A 用ProgressBar控件，value按下载进度设置，最好还用个Timer控件追问

能给点主要代码吗，谢谢》》

追答

网上应该有源码下，可以去pudn，csdn找找

关于VB.NET进度条的实例

我想编一个进度条程序,让它每0.5秒进度增加1%,并用文本显示当前的进度,该如何实现?

这是我自己写的一个进度条控件，如图：

边框粗细和边框颜色以及进度条颜色都可以调。

进度条大小你可以自己拉伸。

同时，进度条还提供了丰富的动画效果（如边框闪烁效果【可关闭】，进度条滑动效果等。）

将边框粗细调为0即可实现无边框（同时边框闪烁效果（见“Flash”属性）也将关闭！）

进度值（见“ProgressValue”属性）类型为Single（单精度浮点数）

将我提供的DLL文件拖到工具箱即可安装

只能用于Windows窗体应用程序！

目标平台：.Net Framework 3.5

属性说明：

1.BorderColor 用于调整边框颜色

2.BorderWidth 用于调整边框粗细

3.Flash 用于开启、关闭边框闪烁效果

4.ProgressValue 用于设置、查看进度值

5.ForeColor 用于设置进度条颜色

6.BackColor 用于设置控件背景色

附件如果丢失，请私信。

参考技术A Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ProgressBar1.Style = ProgressBarStyle.Continuous
n = 0
Me.Timer1.Enabled = True
Me.Timer1.Interval = 500
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Timer1.Enabled = False
n = n + 1
If n <= 100 Then
Me.ProgressBar1.Value = n
Me.Timer1.Enabled = True
Else
Me.ProgressBar1.Value = 100
End If
'在定时器里跟新n就可以了,可以添加个label
End Sub

n为全局变量,添加一个进度条控件和定时器控件,文本显示进度就显示n值就可以了本回答被提问者采纳