Question

VB WebBrowser1实现进度条

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
怎么进度条动都没动,是不是还需要设置什么

Answer 1

你应该单步调试 WebBrowser1_ProgressChange 有没有运行

Answer 2

注意调用名称是否一样,网上的版本自己要用一般要做些改动的,直接copy下来一般都用不了