ProgressBar的同步问题

显示全部楼层 · 2021-1-27 06:07:43

我做了个很简单的测试程序，代码如下：
PrivateSubTimer1_Tick(senderAsObject,eAsEventArgs)HandlesTimer1.Tick
ProgressBar1.Value+=10
Label1.Text=ProgressBar1.Value*100\ProgressBar1.Maximum&"%"
IfProgressBar1.Value=100ThenTimer1.Enabled=False
EndSub
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Timer1.Enabled=True
EndSub
测试中，Label1.Text已经100%了，ProgressBar1才走了一大半，Maximum越小越明显。
请问谁有什么好办法解决这个问题？
分 -->

千问 · 2021-1-27 06:07:43

人为放大下撒。

千问 · 2021-1-27 06:07:43

Maximum放大，ProgressBar1.Value+=10不是跟着要放大，那结果还是一样吧。

千问 · 2021-1-27 06:07:43

设定最大值
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
ProgressBar1.Maximum=100
ProgressBar1.Value+=10
Label1.Text=ProgressBar1.Value*100\ProgressBar1.Maximum&"%"
IfProgressBar1.Value=100ThenTimer1.Enabled=False
EndSub

千问 · 2021-1-27 06:07:43

Maximum本来就是100呀。

千问 · 2021-1-27 06:07:43

原因是定时时间间隔太短了，把定时器Timer1的interval设置为1000，则可以解决问题。

千问 · 2021-1-27 06:07:43

PrivateSubTimer1_Tick(senderAsObject,eAsEventArgs)HandlesTimer1.Tick
ProgressBar1.Value+=10
Label1.Text=ProgressBar1.Value*100\ProgressBar1.Maximum&"%"
IfProgressBar1.Value>=100ThenTimer1.Enabled=False'>=
EndSub
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
ProgressBar1.Value=0'初始
Timer1.Enabled=True
EndSub

千问 · 2021-1-27 06:07:43

ProgressBar这种东西，丢在线程里比较好吧

千问 · 2021-1-27 06:07:43

同7楼，能不用timer就不要用timer，另开线程好一些