vb导入数据时如何用进度条显示导入进度

Question

大家好！
我做vb程序时，在一个form的load方法中，要对数据库进行操作，并且还要运行两个mssql的dts文件。由于数据量可能会很大，如果没有一定的信息显示，用户在等待过程中可能会误认为是机器死机，而强制关闭程序。我想用进度条显示导入的进度，让用户知道程序的运行情况。请问该怎么做？或者有没有其它的方法能够告诉用户，数据在导入，而非机器死机。

Answer 1

简单的方法 加个 label  书上 数据加载中...进度条的 话 一个timer一个进度条
具体的不会 ^_^

Answer 2

Dim i As Double
    ProBar.Visible = True
    ProBar.Max = 10000
    ProBar.Min = 0
    ProBar.Value = 0
    For i = 1 To 10000 Step 1
        ProBar.Value = ProBar.Value + 1
    Next

Answer 3

Dim i As Double
    ProBar.Visible = True
    ProBar.Max = 此处设置为你要加载的数据的个数
    ProBar.Min = 0
    ProBar.Value = 0
    For i = 1 To 此处设置为你要加载的数据的个数 Step 1
        ProBar.Value = ProBar.Value + 1
        加载一条数据
        DoEvents'释放控制权
    Next

Answer 4

一般导入数据都是用循环做的所以你可以在循环开始之前做个progressbar
设置prbar的max为循环的最大值
到循环体里面加上一句
prbar.value=i(i为循环变量)
你可以放个frame,然后在frame上放一个label和一个prbar
这样的话,设置一个frame的visible就可以了
label是显示提示信息的,比如:正在导入数据........
或者:正在导入+目前的记录当然设置frame的visible为true是在循环开始前做的
这里一般加一句doevents,为了让frame完整显示出来
毕竟有时候循环比较大的话会出现显示了prgbar而不显示frame的情况

Answer 5

Dim i As Double
ProBar.Visible = True
ProBar.Max = 此处设置为你要加载的数据的个数
ProBar.Min = 0
ProBar.Value = 0
For i = 1 To 此处设置为你要加载的数据的个数 Step 1
ProBar.Value = ProBar.Value + 1
加载一条数据
DoEvents'释放控制权
Next