VB如何实现进度条
发布网友
发布时间：2022-05-02 00:11
共4个回答
热心网友
时间：2022-05-14 04:53
VB实现进度条的方法只需要5个步骤就可以。
1．首先，编写一个程序框架，如下所示。
2．然后您可以在这里输入各种语句，如下所示。
3．然后找到两个语句块的中间部分，如下图所示。
4．输入语句［Exitsub］，如下所示。
5．最后，您可以运行测试并解决实现进度条的问题，如下所示。
注意事项：
VB背后的思想是让程序员（新手和专家）都能轻松使用它。VB使用的GUI系统可以很容易地构建应用程序，但是可以开发相当复杂的程序。
VB的程序是基于表单的可视化组件安排的联合，并添加代码来指定组件的属性和方法。因为组件中已经定义了一些默认属性和方法，所以程序员不需要编写太多代码就可以完成一个简单的程序。
VB程序可以包含一个或多个表单，或者一个主表单和多个子表单，类似于操作系统。功能很少的对话框窗口（例如没有最大化和最小化按钮的表单）可以用来提供弹出功能。
VB使用参数计算方法进行垃圾回收，它包含大量的对象，提供了基本的面向对象支持。随着越来越多的组件可用，程序员可以选择需要哪些扩展库。
VB使大量的外部控件有了自己的生存空间。VB中有许多第三方控件。VB还提供了创建、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另一个控件并不容易。
热心网友
时间：2022-05-14 06:11
1、首先，写上一个程序框架。
2、然后就可以在这里输入各种语句。
3、然后找到两个语句块的中间部分。
4、输入语句 【Exit sub】。
5、最后就可以去运行测试了。
注意事项：
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2] 。
热心网友
时间：2022-05-14 07:46
--------------------------------------------------------------
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
热心网友
时间：2022-05-14 09:37
工程-部件-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秒
