Question

VB实时错误 380 无效属性值，怎么改？

Private Sub Command1_Click()
Timer1.Enabled = False
Timer2.Enabled = True
Timer2_Timer
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Visible = True
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value >= 100 Then
Me.Hide
Timer1.Enabled = False
Unload Form2
Form3.Show
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
ProgressBar1.Value = ProgressBar1.Value - 5
If ProgressBar1.Value <= 0 Then
Unload Form6
Timer2.Enabled = False
End If
End Sub

Answer 1

ProgressBar1.Value 属性值不可以<minvalue，你看看你的ProgressBar设置的上下限
问题出在Private Sub Timer2_Timer()事件中
ProgressBar1的min属性不可以是<0的值
ProgressBar1.Value = ProgressBar1.Value - 5这句将可能出现ProgressBar1.Value <0
因此你报错

追问

把0改成其他数值比如5 或 10，但若反复运行几次（多为3次）时，依然说无效属性值。

追答

在Timer2_Timer()事件中增加代码
dim lVal as long
lVal=ProgressBar1.Value
if lVal<ProgressBar1.Min
'这里写处理ProgressBar1的值小于下限时的代码
else
ProgressBar1.Value=lVal
end if

Answer 2

不错，如 kolinskysky所说，你需要对ProgressBar1.Value 做判断才能减少5
可在timer2事件第一行加个判断语句：
if ProgressBar1.Value <5 then ProgressBar1.Value =5
这样就可以保证ProgressBar1.Value 值有效

Answer 3

Timer2_Timer 定义的

追问

请问如何定义？

追答

我错了……

Answer 4

你的程序不对
因为运行是ProgressBar1.Value 1，而ProgressBar1.Value - 5<0,
ProgressBar1.Value 的值是不能小于0的
在此程序里你想表达什么呢？