Novamente, sobre ProgressBar no WebBrowser


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Novamente, sobre ProgressBar no WebBrowser

rlinop

PORTO ALEGRE
RS - BRASIL

Postada em 24/09/2004 10:44 hs

[B]Já que ninguém respondeu, pergunto novamente...[/B]

Gostaria de saber como é que se faz para executar o ProgressBar de acordo com o progresso de abertura de uma página internet utilizado com o componente WebBrowser, estou tentando fazer mas o ProgressBar não está carregando conforme a abertura da página, eu gostaria que ele terminasse exatamente quando a página estiver exatamente completa!

Agradecido,
Rafael Portal

Msmarcus_RJ

RIO DE JANEIRO
RJ - BRASIL

Postada em 24/09/2004 16:39 hs

Existe sim um modo,

Este tipo de problema já era para ser solucionado, mas eu fiquei sem tempo de acessar o VBWEB, mas agora voltei, e vou te explicar como, o exemplo que vou te dar abaixo é muito FACIL

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
progressbar1.Value = Progress
End Sub

Bom, eu faço assim, veja se isto vai funcionar ai.

Até mais,

Atenciosamente,
Marcus Vinícius

Se tiver problemas com o código é só postar ou entrar em contato com o e-mail
Msmarcus@hotmail.com que em breve estarei entrando em contato contigo.

______________________________
Resolveu ? Tópico Trancado!

rlinop

PORTO ALEGRE
RS - BRASIL

Postada em 24/09/2004 17:19 hs

Olá Marcos, aconteceu um erro:

Quando eu abro a página acontece o seguinte erro nesta linha de código:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
ProgressBar1.Value = Progress ' Aqui é gerado o erro
End Sub

Aparece a seguinte mensagem:

Run-time error '380':

Invalid property value

Não entendi muito bem, mas entendi perfeitamente a lógica do seu exemplo, espero que tu tenha a solução por que eu não sei como resolve-lo.. Agradecido

Rafael Portal

Msmarcus_RJ

RIO DE JANEIRO
RJ - BRASIL

Postada em 24/09/2004 18:10 hs

Rafael,

Desculpas, quando eu fui enviar a dica para você, eu escrevi sem pensar, e acabou indo só isto, deve foi a pressa! rsss

veja agora o código:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error GoTo erros
ProgressBar1.Min = 0
ProgressBar1.Max = ProgressMax

ProgressBar1.Value = Progress
Exit Sub
erros:
ProgressBar1.Value = 0
End Sub

'Lembre-se de criar o Webbrowser e o ProgressBar

Veja se isto vai funcionar.

Até mais,

Atenciosamente,
Marcus Vinícius

Em caso de problemas com o código é só Postar ou entrar em contato com o e-mail
Msmarcus@hotmail.com que em breve estarei entrando em contato contigo

______________________________
Resolveu ? Tópico Trancado!

rlinop

PORTO ALEGRE
RS - BRASIL

Postada em 27/09/2004 09:20 hs

Valeu MsMarcus_RJ, funcionou corretamente aqui..

Rafael Portal

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR