当 Progressbar.value = 最大值 |我想自动重启
When Progressbar.value = Maximum | I Want to restart it Automatically
我想在 [Progressbar.value = Maximum] 时重新启动进度条,并从 1 到 10 自动重新启动,无需停止或特定时间。
这是一个代码
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
ProgressBar11.Increment(1)
If ProgressBar11.Value = 2 Then
Label23.Text = "KxStpDvDe7JMpDVCZBppQaMHaGSKqn8W3xY4qDXMSdUKdxitFPGw"
End If
If ProgressBar11.Value = 3 Then
Label23.Text = "KzZrERxAiZgbHopAxUtQ6iDb4SMxZbgyeDmoK8diYgDf32c9Byrg"
End If
If ProgressBar11.Value = 4 Then
Label23.Text = "L2FytfFKWuWyKunmGgwjFMMhUWaTnJP7qtnKENqwnacGhV6Z2rJv"
End If
If ProgressBar11.Value = 5 Then
Label23.Text = "L4aFy9gsK7jy1YpdUvgsKdHrtdg2H5YC8R9s7UFx9oHVzEoLjqxR"
End If
If ProgressBar11.Value = 6 Then
Label23.Text = "L5UKKWBUDM4z49hU1XTAAF2DKy7ycPXDeTSvQXDGJoSeCDSDFQJ7"
End If
If ProgressBar11.Value = 7 Then
Label23.Text = "L55RuiA6EVm7GSfoLLJD8853LUovn79MR9RzGrMD2xQqsJ25DVx5"
End If
If ProgressBar11.Value = 8 Then
Label23.Text = "KxSTtoDS7Wm2P6fGaxEWui1CD4cm47hoNGaoz8am6akHpsghmV1z"
End If
If ProgressBar11.Value = 9 Then
Label23.Text = "L2eJLnMRfUt3fQPqGPFAdzK1x4xA28e4hRCDbQA8Wiij4piNkyig"
End If
If ProgressBar11.Value = ProgressBar11.Maximum Then
Timer19.Stop()
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
End If
End Sub
Please I want to restart progress bar when [Progressbar.value =
Maximum] and start again automatically from 1 to 10, Without Stopping
or a specific time.
变化:
If ProgressBar11.Value = ProgressBar11.Maximum Then
Timer19.Stop()
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
End If
收件人:
If ProgressBar11.Value = ProgressBar11.Maximum Then
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
ProgressBar11.Value = ProgressBar11.Minimum
End If
虽然我同意其他人的观点,但您可能可以通过重构来简化代码。
如果您的表单上有那么多计时器,将会产生大量需要处理的事件。如果这些上的间隔相当小,您的应用程序可能会变得滞后。还有其他方法可以实现多个进度条,可能是一个 datagridview with custom drawing 并且只有一个计时器来强制 datagridview 同时更新所有 "progressbars"。
我想在 [Progressbar.value = Maximum] 时重新启动进度条,并从 1 到 10 自动重新启动,无需停止或特定时间。
这是一个代码
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
ProgressBar11.Increment(1)
If ProgressBar11.Value = 2 Then
Label23.Text = "KxStpDvDe7JMpDVCZBppQaMHaGSKqn8W3xY4qDXMSdUKdxitFPGw"
End If
If ProgressBar11.Value = 3 Then
Label23.Text = "KzZrERxAiZgbHopAxUtQ6iDb4SMxZbgyeDmoK8diYgDf32c9Byrg"
End If
If ProgressBar11.Value = 4 Then
Label23.Text = "L2FytfFKWuWyKunmGgwjFMMhUWaTnJP7qtnKENqwnacGhV6Z2rJv"
End If
If ProgressBar11.Value = 5 Then
Label23.Text = "L4aFy9gsK7jy1YpdUvgsKdHrtdg2H5YC8R9s7UFx9oHVzEoLjqxR"
End If
If ProgressBar11.Value = 6 Then
Label23.Text = "L5UKKWBUDM4z49hU1XTAAF2DKy7ycPXDeTSvQXDGJoSeCDSDFQJ7"
End If
If ProgressBar11.Value = 7 Then
Label23.Text = "L55RuiA6EVm7GSfoLLJD8853LUovn79MR9RzGrMD2xQqsJ25DVx5"
End If
If ProgressBar11.Value = 8 Then
Label23.Text = "KxSTtoDS7Wm2P6fGaxEWui1CD4cm47hoNGaoz8am6akHpsghmV1z"
End If
If ProgressBar11.Value = 9 Then
Label23.Text = "L2eJLnMRfUt3fQPqGPFAdzK1x4xA28e4hRCDbQA8Wiij4piNkyig"
End If
If ProgressBar11.Value = ProgressBar11.Maximum Then
Timer19.Stop()
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
End If
End Sub
Please I want to restart progress bar when [Progressbar.value = Maximum] and start again automatically from 1 to 10, Without Stopping or a specific time.
变化:
If ProgressBar11.Value = ProgressBar11.Maximum Then
Timer19.Stop()
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
End If
收件人:
If ProgressBar11.Value = ProgressBar11.Maximum Then
Label23.Text = "KyHGgvC28cxP9HpAMz6fnB5AHJo4QxG7j2HpF8VN1SB3KuJE9zp1"
Label27.Enabled = True
ProgressBar11.Value = ProgressBar11.Minimum
End If
虽然我同意其他人的观点,但您可能可以通过重构来简化代码。
如果您的表单上有那么多计时器,将会产生大量需要处理的事件。如果这些上的间隔相当小,您的应用程序可能会变得滞后。还有其他方法可以实现多个进度条,可能是一个 datagridview with custom drawing 并且只有一个计时器来强制 datagridview 同时更新所有 "progressbars"。