有关进度条的使用，为什么程序运行完了进度条才显示到半截呢

z18234089392 发布于 2015-06-05 21:07， 338 次点击

Dim Progress As Integer
Dim i As Integer
Form3.ProgressBar1.Min = 0
Form3.ProgressBar1.Max = river.NN
For i = 1 To river.NN
Progress = i \ river.NN
Form3.ProgressBar1.Value = Progress
Next

2 回复

风吹过b2015-06-05 21:50

Form3.ProgressBar1.Max = river.NN    '最大值
Progress = i \ river.NN    '比例，最大为1
Form3.ProgressBar1.Value = Progress   '进度条值，最大为1，而满格为 NN ，所以进度条走不到终点。

z182340893922015-06-05 21:53

回复 2楼风吹过b

感谢！