在vb.net的进度条值问题

Question

我设计了一个web浏览器。除了进度条它工作正常。

这是我的代码：

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged 
    ProgressBar1.Maximum = e.MaximumProgress 
    ProgressBar1.Value = e.CurrentProgress 
End Sub 

报告的错误是progressbar1.value应max之间和MIN e.currentprogress = -1是不可能

Answer 1

-1表示值“下载已完成“，如MSDN资料库文章中所述。因此：

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged 
    If e.CurrentProgress = -1 Then 
    ProgressBar1.Maximum = 100 
    ProgressBar1.Value = 100 
    Else 
    ProgressBar1.Maximum = e.MaximumProgress 
    ProgressBar1.Value = e.CurrentProgress 
    End If 
End Sub 

或者您可能想使用-1来隐藏进度栏。