vb.net - VB.NET 假进度条

Question

当我点击按钮时，我想制作假的进度条：

for i = 0 to Maximum 
progressbar1.value = progressbar1.value + 1
next

但是progressbar.value = 100 太快了

Answer 1

使用计时器，
按钮：

timer1.enable = true

计时器：

   If ProgressBar1.value = ProgressBar1.maximum Then
            Timer1.Enabled = False
            Exit Sub
        End If
        ProgressBar1.value = ProgressBar1.value + 1

Answer 2

尝试类似...

for i = 0 to Maximum 
    progressbar1.value = progressbar1.value + 1
    Pause(5)
next

Public Sub Pause(ByRef seconds As Double)
    Dim fIni as DateTime = Now.AddSeconds(seconds)

    While Now < fIni
        My.Application.DoEvents()
    End While
End Sub

Answer 3

当某事花费很长时间时，您通常会显示进度，以便您可以向用户显示进度。

    For i = 0 To ProgressBar1.Maximum - 1
        'some long running process happens here 
        ProgressBar1.Value += 1
    Next

如果您想模拟登录运行过程以进行测试等，您可以使用 Sleep

    For i = 0 To ProgressBar1.Maximum - 1
        System.Threading.Thread.Sleep(50) 'wait for 50ms
        ProgressBar1.Value += 1
    Next

然而

这样做的首选方法是在后台工作人员中执行长时间运行的进程，并在完成后使用委托更新进度条。但这是另一个问题。