Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

cmd

ajuda webbrowser

Recommended Posts

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites
cmd

Boas,

Não funciona como queria r00tfixxxer, mas obrigado na mesma, tens mais alguma solução?


Cumps.cmd

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

;)

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.