VB如何实现进度条

Posted 2023-04-02

如图显示，运行窗口form3的时候，进度条开始运行进度，当运行到百分之20的时候在标签1显示文字“123”然后运行到百分之50的时候，在标签1显示“456”进度到百分之百的时候，显示为“789”

VB实现进度条的方法只需要5个步骤就可以。

1．首先，编写一个程序框架，如下所示。

2．然后您可以在这里输入各种语句，如下所示。

3．然后找到两个语句块的中间部分，如下图所示。

4．输入语句［Exitsub］，如下所示。

5．最后，您可以运行测试并解决实现进度条的问题，如下所示。

注意事项：

VB背后的思想是让程序员（新手和专家）都能轻松使用它。VB使用的GUI系统可以很容易地构建应用程序，但是可以开发相当复杂的程序。

VB的程序是基于表单的可视化组件安排的联合，并添加代码来指定组件的属性和方法。因为组件中已经定义了一些默认属性和方法，所以程序员不需要编写太多代码就可以完成一个简单的程序。

VB程序可以包含一个或多个表单，或者一个主表单和多个子表单，类似于操作系统。功能很少的对话框窗口（例如没有最大化和最小化按钮的表单）可以用来提供弹出功能。

VB使用参数计算方法进行垃圾回收，它包含大量的对象，提供了基本的面向对象支持。随着越来越多的组件可用，程序员可以选择需要哪些扩展库。

VB使大量的外部控件有了自己的生存空间。VB中有许多第三方控件。VB还提供了创建、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另一个控件并不容易。

参考技术A

1、首先，写上一个程序框架。

2、然后就可以在这里输入各种语句。

3、然后找到两个语句块的中间部分。

4、输入语句 【Exit sub】。

5、最后就可以去运行测试了。

注意事项：

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2]  。

参考技术B 先添加一个控件，然后复制以下代码，简单的进度条完成：
--------------------------------------------------------------
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max

For i As Integer = Min To Max
'执行计算.......
Progress = i \ Max '计算进度
ProgressBar1.Value = Progress '显示进度
My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到，但是会严重降低运行速度
Next 参考技术C 添加进度条控件方法：
工程-部件-Microsoft WIndows Common Controls 5.0
添加后，选择左侧的ProgressBar控件，添加到窗体，添加Timer控件，Interval为1000，添加Label1。
代码部分：

Private Sub Timer1_Timer()
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 10
End If
If ProgressBar1.Value = 20 Then
Label1.Caption = "123"
Else
If ProgressBar1.Value = 50 Then
Label1.Caption = "456"
Else
If ProgressBar1.Value = 100 Then
Label1.Caption = "789"
End If
End If
End If

End Sub追问

恩恩 可以啦 ，，问个题外话 那个时钟怎么调呢？ 1000代表多长时间？？

追答

1000代表1秒

本回答被提问者采纳

关于VB.NET进度条的实例

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

该实例有很多实现方法,下面介绍一种不同的给你:
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 500
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
ProgressBar1.Minimum = 0
End Sub
'上述过程是设置控件的初始值,也可以在属性面板设置
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
Label1.Text = "当前完成" & ProgressBar1.Value & "%"
If (ProgressBar1.Value = 100) Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
'timer1用来控制进度的增加
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value -= 1
Label1.Text = "当前完成" & ProgressBar1.Value & "%"
If (ProgressBar1.Value = 0) Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
'time2用来控制进度的减少
End Class 参考技术A 给你个参考一下
private sub progressbar_run()
dim i, re as integer
me.progressbar1.maximum = 5000
me.progressbar1.minimum = 1
me.progressbar1.step = 1
me.progressbar1.value = 1
for i = 1 to 5000
系统处理过程：
next
me.progressbar1.value = 1
end sub