Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

cmd

ajuda webbrowser

Mensagens Recomendadas

cmd

Boas a todos,

Estou a tentar desenvolver um webbrowser para um projecto na escola.

O que queria fazer era "reconhecer" o título da página web por exemplo "Portugal-a-Programar - Índice" e apresentar no título da form.

A outra era uma progressbar a indicar o progresso do carregamento da página, actualmente tenho isto:

Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
        ToolStripProgressBar1.Visible = True


        With ToolStripProgressBar1

            .Minimum = 0

            .Maximum = 50

            .Step = 5

        End With

        For index As Integer = 0 To 50 Step 5

            ToolStripProgressBar1.Value = index

            System.Threading.Thread.Sleep(35)

        Next
End Sub

Será que alguém me poderá ajudar? Já tentei pesquisar e não encontrei nada


Cumps.cmd

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tuntankamon

Boas

O WebBrowser tem um evento que ocorre quando o site terminou de carregar, penso que deves utilizar esse evento.

Como o que tu vês no browser é uma página HTML só tens de obter a mesma  e aceder À propriedade Title.

Exemplo:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim htmlDOC As HtmlDocument = WebBrowser1.Document
        MsgBox(htmlDOC.Title)
    End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tuntankamon

Ups, nem li bem a thread toda...  :-[

Para reportares o progresso tens outro evento que é o progressChanged

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser2.ProgressChanged
        ToolStripProgressBar1.Maximum = e.MaximumProgress
        ToolStripProgressBar1.Value = e.CurrentProgress
    End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Johnny Mercy

Mas se usares o browser com abas isso não te ajuda muito!

O melhor é criares uma classe e depois fazes um inherits de web browser.

Dentro da class crias uma sub com o seguinte:

Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webBrowser.ProgressChanged
     
            If ProgressBar.Value <= e.MaximumProgress Then
               ProgressBar.Maximum = e.MaximumProgress
                If e.CurrentProgress >= ProgressBar.Minimum Then
                  ProgressBar.Value = e.CurrentProgress
                Else
                    ProgressBar.Value = 0
                End If
            Else
              ProgressBar.Value = 0
                ProgressBar.Maximum = e.MaximumProgress
            End If
end sub

Se quiseres podes ver isso e muito mais aqui:

http://vbimaster.com/inicio/index.php?option=com_content&view=article&id=60&Itemid=18

;)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cmd

Mas se usares o browser com abas isso não te ajuda muito!

O melhor é criares uma classe e depois fazes um inherits de web browser.

Dentro da class crias uma sub com o seguinte:

Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webBrowser.ProgressChanged
     
            If ProgressBar.Value <= e.MaximumProgress Then
               ProgressBar.Maximum = e.MaximumProgress
                If e.CurrentProgress >= ProgressBar.Minimum Then
                  ProgressBar.Value = e.CurrentProgress
                Else
                    ProgressBar.Value = 0
                End If
            Else
              ProgressBar.Value = 0
                ProgressBar.Maximum = e.MaximumProgress
            End If
end sub

;)

Obrigado  :P


Cumps.cmd

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.