Question

VB怎么设置进度条

我用控件WebBrowser1访问一个网页，没有链到时想让它显示进度，这怎么写如何是好？
烂掉萝卜先生，这个代码无效 ···用不上，没反应···
下面的两个答案怎么全是一样的？

Answer 1

我们用的控件名字可能不同。但是原理是一样的。你可以自己改名字。
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress > 0 And Progress <= ProgressMax Then
XPProgressBar1.Max = 100
XPProgressBar1.Min = 0
XPProgressBar1.Value = (Progress / ProgressMax) * 100
End If
End Sub

进度条的控件名字需要改一下。改成你的控件名。
下面那位是把我的代码改成了默认的控件名而已。
这个代码可以实现你要的要求，因为我自己的浏览器就是这么做的：）
有问题可以百度HI我~我再教你

Answer 2

不行吗？
那试试我这个
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If ProgressMax = 0 Then Exit Sub
ProgressBar1.Max = ProgressMax
If Progress <> -1 And Progress <= ProgressMax Then
ProgressBar1.Value = Progress
End If
End Sub