关于进度条的问题。

[dell9]

我在属性里设置进度条ProgressBar1 的 min=0， max=3000， 但是先按command1，再按command2就出错显示 Run-time error '380; Invalid property value. 为什么？


Private Sub Command1_Click()
ProgressBar1.Min = 10
ProgressBar1.Max = 50
Dim i As Integer
For i = 10 To 50
ProgressBar1.Value = i
Next i
End Sub

Private Sub Command2_Click()
ProgressBar1.Min = 100
ProgressBar1.Max = 500
Dim i As Integer
For i = 100 To 500
ProgressBar1.Value = i
Next i
End Sub

[Snoworld]

同情楼主，
以前我也出现过类似的情况

从本机上测试着没问题，
但是放到别的机器(SERVER 2003)上运行，
总是会出'错误380'这样的问题。
后来把进度条去掉才没问题了。

希望能有好的方法解决这个问题。

[dell9]

明白了，按command2时min〉max了。 只好再加一个进度条解决。
不知道只用一个进度条该怎么办。

[AnnaBear]

关注学习...^_^

[laviewpbt]

Private Sub Command1_Click()
ProgressBar1.Min = 10
ProgressBar1.Max = 50
Dim i As Integer
For i = 10 To 50
ProgressBar1.Value = i
Next i
End Sub

Private Sub Command2_Click()
ProgressBar1.Max = 500 '两个语句调换个顺序就可以了。
ProgressBar1.Min = 100
Dim i As Integer
For i = 100 To 500
ProgressBar1.Value = i
Next i
End Sub

[ZOU_SEAFARER]

Private Sub Command1_Click()
ProgressBar1.Min = 10
ProgressBar1.Max = 50
Dim i As Integer
For i = 10 To 50
ProgressBar1.Value = i
Next i
ProgressBar1.Min = 0 '这个数保证以后设置的最小比他大
End Sub

Private Sub Command2_Click()
ProgressBar1.Min = 100
ProgressBar1.Max = 500
Dim i As Integer
For i = 100 To 500
ProgressBar1.Value = i
Next i
ProgressBar1.Min = 0 '这个数保证以后设置的最小比他大

End Sub
加上这个看看

[jackcaixia]

Private Sub Command2_Click()
ProgressBar1.Min = 100
ProgressBar1.Max = 49 '这个数少于50就可以了~~大于50就会出错
Dim i As Integer
For i = 49 To 500
ProgressBar1.Value = i
Next i
End Sub

[ZOU_SEAFARER]

我的方法没有考虑周全，楼主不要用，呵呵

[clear_zero]

lz的例子
ProgressBar1.Max = 500
ProgressBar1.Min = 100
就可以了