VB中WebBrowser控件 的问题

Question

WebBrowser 怎么实现进度条..
WebBrowser.Navigate www.baidu.com加载有个缓冲进度条..加载完显示网页..
新手..求提供代码..

Answer 1

添加ProgressBar部件，然后在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 IfEnd Sub