关于VB的ProgressBar!
发布网友
发布时间：2022-04-22 04:02
共2个回答
热心网友
时间：2023-05-23 16:01
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,所以越界了
热心网友
时间：2023-05-23 16:01
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为我添加的窗体
timer1.enabled=false
end if
progressbar1.value=progressbar1.value+1
end sub
