Question

VB中计算时间太长，想通过新开一个进度条窗体显示进度，但是VB貌似不能做多线程并行运算吧。有啥办法？

想通过添加timer控件来控制另一个窗体的进度条，可是貌似只能是主程序运行完后才能运行进度条控制程序。

Answer 1

在显示进度的语句后加DoEvents语句就可以了。

如果是循环数比较多，因此不断调用显示进度会占用较多系统时间，可以加入条件判断，进度到一定程度才显示进度，同时注意在条件判断中尽量减少调用控件的属性，而用变量代替，如下：

Private Sub Command1_Click()
n = 10000000
For i = 1 To n
'-----------以下放入你的计算程序，比如累计求和------------
x = x+ i
'-----------有条件显示进度------------
Dim Rt0%, Rt% '上次更新时的进度百分比及当前进度百分比
Rt = i / n * 100
If Rt - Rt0 >= 5 Then '有条件更新进度，减少显示进度对计算速度的影响
Rt0 = Rt
ProgressBar1.Value = Rt
DoEvents
End If
Next i
End Sub

Answer 2

把控制进度条的代码放入你的计算过程里面啊。

追问

不行的，进度条条码作为子程序写进去，主程序卡，子程序一样卡。

追答

那你看看能不能分段计算啊，优化下你的代码，应该不至于卡吧。
另外 VB6的多线程不稳定，不推荐用。
用多线程还是换VB.net吧，那个有现成的。