VB做一个进度条
三个窗口,form1,2,3。点击form1中的一个按钮后进入第二个有progressbar,timer,label的窗口,并自动开始运行(做假的,设置六秒运行到100%...
三个窗口,form1,2,3。点击form1中的一个按钮后进入第二个有progressbar,timer,label 的窗口,并自动开始运行(做假的,设置六秒运行到100%就行),运行到100%后自动form3.show
unload me
如果这段代码比较长和复杂的话,那我就直接在form2上加一个按钮,来手动启动进度条,然后100%后自动进入form3 展开
unload me
如果这段代码比较长和复杂的话,那我就直接在form2上加一个按钮,来手动启动进度条,然后100%后自动进入form3 展开
展开全部
form1的代码:
private sub command1_click()
form2.show
end sub
form2的代码:
private sub form_load()
timer1.enable=true
timer1.interver=60
label1.caption=""
progressbar.value=0
end sub
private timer1_timer()
static LastValue as long
LastValue=LastValue+1
label1.caption=Cstr(lastvalue) & "%"
if lastvalue=100 then
Form3.show
timer1.enable=false
end if
end sub
private sub command1_click()
form2.show
end sub
form2的代码:
private sub form_load()
timer1.enable=true
timer1.interver=60
label1.caption=""
progressbar.value=0
end sub
private timer1_timer()
static LastValue as long
LastValue=LastValue+1
label1.caption=Cstr(lastvalue) & "%"
if lastvalue=100 then
Form3.show
timer1.enable=false
end if
end sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询