Como simular progressbar al cargar una web en un webbrowser?

[hunter18]

Como veran cargo la web de esta forma

Código:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://forosdelweb.com"
End Sub

y para ver el progreso encontre este ejemplo que utiliza el progressbar

Código:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
Dim Cxb2
On Error GoTo Cxb2
'El Máximo de la barra es la variable ProgressMax
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress

    If ProgressMax <= 0 Then
      ProgressBar1.Visible = False
      MsgBox "Listo"
    Else
       ProgressBar1.Visible = True
    End If
Exit Sub
Cxb2:
If Err.Number = 380 Then Resume Next
End Sub

Al terminar la carga envia un mensaje , como hago para quitar el progressbar y al terminar la carga solo me envie el mensaje?

[David]

En ese caso sólo tienes que dejar la línea:

Código vb:

If ProgressMax <= 0 Then
    MsgBox "Listo"
End If
 

[hunter18]

gracias me funciono bien

[hunter18]

Como vas david como siempre cargaba la web desde el evento load el mensaje me salia al cargar el form pero ahora cargo el webbrowser desde un boton y el mensaje me sale al iniciar el programa por que?
El problema es que me aparece el mensaje del msgbox al cargar el form aunque todavia no le haya indicado q me cargu la web

[seba123neo]

Hola, pone todo el codigo que estas usando...asi lo vemos...

saludos.

[hunter18]

Como esta aqui dejo el codigo esta con el progressbar todavia

Código:

Private Sub cmdGo_Click()
WebBrowser1.Navigate txtUrl.Text
End Sub

Private Sub Form_Load()
'
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
Dim Cxb2
On Error GoTo Cxb2
'El Máximo de la barra es la variable ProgressMax
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress

    If ProgressMax <= 0 Then
      ProgressBar1.Visible = False
      MsgBox "Listo"
    Else
       ProgressBar1.Visible = True
    End If
Exit Sub
Cxb2:
If Err.Number = 380 Then Resume Next
End Sub

Como ya dije me manda el mensaje al ejecutar el form1, y solo deberia aparecer cuando preciono el boton.
Me parece que el error aparece por que al ejecutar el form me aparece la pagina de error del IE supongo que carga esa pagina o no? en todo caso como lo puedo solucionar ya que si la carga de la web esta correcta y no presento ningun problema debe habilitarme un boton para recuperar info de dicha pagina