Question

批量导入大量数据，程序响应要一定时间，我想在这段时间出现一进度条。当导入结束，进度条显示导入成功。

请问代码如何 写？语言为：VB
我导入的是excel 中sheet1的数据，算是整表复制吗？如果这样，又应如何写代码呢？

Answer 1

看你的数据是如何导入了，如果是循环导入，你可以先统计一下总共要导入多少条记录，把进度条的最大值设置为要导入的记录数，最小值0，将进度条置0，然后在循环里每导入一条记录，就把进度条的值+1，这样导入完数据后，进度条也走完了.
还有一种就是如果不是循环一条一条的分析导入，而是整表复制的那种，虽然需要一定的时间，但是这段时间是不能进行其它操作的了.

Answer 2

要用到ProgressBar控件（位于Microsoft Windows Common Contotrols 6.0里）。
代码为：
Private Sub Form_Load()
Dim i%, count(3000) As Integer '假设表1的数据量是3000
Print "Data Initialization..."
ProgressBar1.Min = LBound(count): ProgressBar1.Max = UBound(count) '定义上下限
ProgressBar1.Value = ProgressBar1.Min '初始状态
For i = LBound(count) To UBound(count) '开始读条
count(i) = i
ProgressBar1.Value = i
Next
ProgressBar1.Value = ProgressBar1.Max '读取完毕
Print "Initialization Data Succeed!"
End Sub

Answer 3

我也要，但是不会JS,flash