Status Bar - VB-MUNDO

Loriel · #1 (**permalink**) 25-02-2007, 01:01:26

Hola, como hago para que en un status bar aparesca "Cargando" si estacargando una pagina en el webbrowsaer, y que diga "Listo" cuando ya cargo la pagina...?

acalanto · #2 (**permalink**) 25-02-2007, 08:35:58

Puedes utilizar el evento ProgressChange del objeto WebBrowser. Estudia el siguiente código.

Código:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    On Local Error Resume Next
    Me.ProgressBar1 = IIf(100 * (Progress / ProgressMax) > Me.ProgressBar1.Max, Me.ProgressBar1.Max, 100 * (Progress / ProgressMax))
End Sub

Loriel · #3 (**permalink**) 25-02-2007, 15:58:06

Jeje, gracias pero, xD no entiendo mucho de eso... Si no te molestaria darme el codigo completo te agradeceria mucho...

acalanto · #4 (**permalink**) 25-02-2007, 17:59:25

Verás, estimado Loriel:

Personalmente no me importa -a pesar de mi limitación de tiempo- ofrecerte 'llave en mano' el código íntegro de lo que pretendes realizar, de hecho, en muchas ocasiones, así lo he hecho con otros usuarios. Postura que no habla demasiado bien de mi persona, porque si te doy todo el código salpimentado y horneado, estoy promoviendo que no pienses por ti mismo y nunca alcanzarás buscar la solución con tus propios conocimientos y habilidades.

No obstante te voy a dar una pequeña pista:

Inserta un WebBrowser en un formulario junto con un control de barra de estado, copia el codigo que te adjunto y pon una dirección URL en la propiedad Navigate del WebBrowser....Ya verás como la barra avanza en función del porcentaje de carga estimado de la página.

Si aún así no logras que te funcione, me comprometo ha entregarte el proyecto completo, pero que conste, no te hacemos ningún favor especial por ello.

Loriel · #5 (**permalink**) 26-02-2007, 00:17:17

Te entiendo, hare lo posible para que me ande, sino pues te aviso, pero intentare de hacerlo, gracias por todo... Cuando dices que copie el codigo que me adjuntas, a cual te refieres.?

acalanto · #6 (**permalink**) 26-02-2007, 08:08:11

Al que está dentro de la ventana con fondo blanco encabezada con la palabra Código:

Loriel · #7 (**permalink**) 26-02-2007, 15:03:40

Intente hacerlo, seguro algo hago mal... Tengo que cambiarle el name al status bar o a algo? Yo le puse este codigo...

Código:

Private Sub Form_Load()
WebBrowser1.Navigate ("www.google.com.ar")
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    On Local Error Resume Next
    Me.ProgressBar1 = IIf(100 * (Progress / ProgressMax) > Me.ProgressBar1.Max, Me.ProgressBar1.Max, 100 * (Progress / ProgressMax))
End Sub

Me salta error aqui...

Código:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

acalanto · #8 (**permalink**) 26-02-2007, 17:26:23

Tienes que poner un objeto ProgressBar (no lo confundas con StatusBar que son cosas diferentes) cuyo nombre sea ProgressBar1, de lo contrario no te dejará ni ejecutar.

Para encontrar el componente tienes que ir al menú Proyecto->Componentes y seleccionar el paquete MicroSoft Windows Commn Controls 6.0 (SP6) o si no tienes instalado el Service Pack 6, prueba con Microsoft Windows Common Controls 5.0 (SP2).

Loriel · #9 (**permalink**) 26-02-2007, 17:42:46

Ahi me funciono, muchas gracias xD, soy un bobo, confundi progres bar con status bar, sorry... Gracias por todo, ahi me anduvo...

Loriel · #10 (**permalink**) 26-02-2007, 17:58:30

Y como haria que depende la resolucion de la pantalla de cada persona, se ajuste mi explorador web y que todos mis objetos se qeuden en su pocicion? Por ej. que el progress bar siga en la parte de abajo?