USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
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

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página