VB做一个进度条

发布网友发布时间：2022-04-27 13:43

共1个回答

热心网友时间：2022-04-27 15:13

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com