Question

关于VB.NET进度条的实例

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

Answer 1

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

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

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

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

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

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

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

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

目标平台：.Net Framework 3.5

属性说明：

1.BorderColor 用于调整边框颜色

2.BorderWidth 用于调整边框粗细

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

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

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

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

附件如果丢失，请私信。

Answer 2

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值就可以了