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

2025-12-16 14:24:20

推荐回答（4个）

回答1：

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

回答2：

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

回答3：

Timer2_Timer 定义的

回答4：

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