关于VB的ProgressBar!

有下面一段代码
private sub form_load()
progressbar1.value=0
progressbar1.min=0
progressbar1.max=10
timer1.interval=1000
timer1.enabled=true

private sub timer1_timer()
if progressbar1.value>=10 then form2.show 'form2为我添加的窗体
progressbar1.value=progressbar1.value+1
end sub
在进度条完成的时候怎么会出现提示"无效的属性值"?
答对加分

private sub timer1_timer()
if progressbar1.value>=10 then
form2.show 'form2为我添加的窗体
else
progressbar1.value=progressbar1.value+1
end if
end sub

不加else的情况下,在progressbar1.value为10也+1,所以越界了

结构有些问题,给你改了一下,你试试 private sub command1_click() progressbar1.max = 30 progressbar1.min = 0 timer1.interval = 1000 progressbar1.value = progressbar1.min timer1.enabled = true end sub private sub timer1_timer() progressbar1.value = progressbar1.value + 1 if progressbar1.value = progressbar1.max then timer1.enabled = false end sub 你的问题在于,已经到了最大值,还在加,当然会出错