VB - 进度条问题

Question

我正在制作一个简单的进度条，用作我的应用程序中的初始屏幕，但是在执行代码时，加载条没有到达进度条的末尾。

我用过代码：

splashprogressbar.Increment(1) 
    If splashprogressbar.Value = 100 Then 
        Main_Menu.Show() 
        Me.Hide() 
    End If

当进度条达到100（已设置为最大值）时打开表单。

这个问题更多地与外观而不是功能有关，但我仍然想了解为什么会发生这种情况并希望得到修复。

为了澄清，Main_Menu 表单会在栏完成大约 3/4 时打开，我无法理解为什么会发生这种情况。有什么想法吗？

Answer 1

我无法想象VB有这样的错误。可能您正在运行导致该问题的旧的或不兼容的“.Net Framework”。 您可以尝试在运行程序时以编程方式设置进度条最大值。 在Form1_Load 事件中使用此代码：

ProgressBar1.Maximum = 100

它应该工作。但如果不是，也许它只是代码相关的。尝试以这种方式填充进度条（必须在计时器中）：

If splashprogressbar.Value = splashprogressbar.Maximum Then 
    Main_Menu.Show() 
    Me.Hide() 
Else
    splashprogressbar.Value += 100
End If

只是一个友好的建议：您似乎正在模拟一个假装的加载栏，然后才打开应用程序（可能会浪费用户的时间）。不要那样做。

Answer 2

您也可以尝试查看以下链接。这可能对您的方法有所帮助；

Trigger Background Worker

以下内容是从上面的链接复制的...

Dim WithEvents bgWorker As New BackgroundWorker With { _
.WorkerReportsProgress = True, _
.WorkerSupportsCancellation = True}

Private Sub bgWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
    For i As Integer = 0 To 100
        'Threw in the thread.sleep to illustrate what's going on.  Otherwise, it happens too fast.
        Threading.Thread.Sleep(250)
        bgWorker.ReportProgress(i)
    Next
End Sub

Private Sub bgWorker_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgWorker.ProgressChanged
    If e.ProgressPercentage Mod 10 = 0 Then
        MsgBox(e.ProgressPercentage.ToString)
    End If
End Sub

Private Sub bgWorker_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgWorker.RunWorkerCompleted
    MsgBox("Done")
End Sub

Answer 3

你可以试试这样的；

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    Me.Show()

    Dim i As Integer

    splashprogressbar.Minimum = 0
    splashprogressbar.Maximum = 100

    If splashprogressbar.Value < splashprogressbar.Maximum Then

        For i = 0 To 100
            splashprogressbar.Value = i
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        Next
    End If
    Me.Hide()
    MsgBox("Here I am") 'Use your "Main_Menu.Show" here

End Sub