Question

VB如何实现进度条

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

Answer 1

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

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

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

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

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

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

注意事项：

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

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

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

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

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

Answer 2

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

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

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

4、输入语句 【Exit sub】。

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

注意事项：

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

Answer 3

先添加一个控件，然后复制以下代码，简单的进度条完成：
--------------------------------------------------------------
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

Answer 4

添加进度条控件方法：
工程-部件-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秒