最简单的一个例子,呵呵...Private Sub Command1_Click() Do Until ProgressBar1.Value > 99 ProgressBar1.Value = ProgressBar1.Value + 1 For i = 0 To 100 For j = 0 To 100 Next j Next i Loop End SubPrivate Sub Form_Load()ProgressBar1.Min = 0 ProgressBar1.Max = 100 ProgressBar1.Value = 0End Sub
Do Until ProgressBar1.Value > 99
ProgressBar1.Value = ProgressBar1.Value + 1
For i = 0 To 100
For j = 0 To 100
Next j
Next i
Loop
End SubPrivate Sub Form_Load()ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0End Sub
http://www.csdn.net/dev/Visual%20Basic/source%20code/File%20Processing/filecopy.zip