Como Criar Um Navegador (WebBrowser) no Visual Basic 2008 e 2010 Publicada por Mead Napster , sábado, 12 de maio de 2012 at 17:57, in Etiquetas: Navegador, Visual Basic 2008, We Browser

Olá bloggeiros hoje vou mostrar como criar um Browser (Navegador) básico.

 

 

Criar Navegador

1º Passo Abra o VB 2008 ou (2010) dependendo do que você tem.

2º Passo Crie um projeto e logo em seguida  coloque em seu projeto 5 Botoes, um TEXTBOX e um botao do lado do TEXTBOX e renomeie o TEXTBOX como link

3º Passo crie um WebBrowser

4º Passo no primeiro botão e coloque o seguinte comando:

Código:

WebBrowser1.GoBack()

Esse comando serve para voltar a pagina


5º Passo No segundo botão *** o seguinte comando:

Código:

WebBrowser1.GoForward()

Esse comando serve para avançar a página

6º Passo No terceiro Botão *** o seguinte comando:

Código:

WebBrowser1.Refresh()

Esse comando serve para atualizar a página

7º Passo No quarto botão ***:

Código:

WebBrowser1.Stop()

Esse comando serve para parar a navegação

8º Passo no quinto botao ***:

Código:

WebBrowser1.GoHome()

Esse Comando serve para Ir a página inicial

9º Passo No botao do lado no TEXTBOX  põe o seguinte comando:

Código:

WebBrowser1.Navigate(link.Text)

O comando acima serve para direccionar o navegador para a pagina colocada no TEXTBOX

10º Passo Coloque no seu script o seguinte:

Código:

Private Sub Teclou_Enter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles link.KeyUp

                If e.KeyCode = Keys.Enter Then

                        WebBrowser1.Navigate(link.Text)

                End If

        End Sub

O script acima serve para quando o usuário teclar enter navegar para a pagina indicada no TEXTBOX de link

Private Sub Teclou_Enter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles link.KeyUp

        If e.KeyCode = Keys.Enter Then

            WebBrowser1.Navigate(link.Text)

        End If

    End Sub

Outros codigos interessantes para botar ele bonitinho:

Código:

Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged

                If e.CurrentProgress * 100 / e.MaximumProgress > 1 Then

                        ProgressBar1.Value = e.CurrentProgress * 100 / e.MaximumProgress

                End If

        End Sub

O script acima Serve para Colocar uma barra de progresso, mas antes não
esqueça de colocar um PROGRESSBAR no seu projeto

Código:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize

                WebBrowser.Height = Me.Height - 110

                WebBrowser.Width = Me.Width - 10

        End Sub

O script acima Serve para quando o usuário redimensionar clicar em maximizar e o webbrowser ser redimensionado automaticamente.

 (OBS: Adapte o Me.heidht -110 e o me.width -10 ao seu gosto só modificar o -110 e o -10)

Chegamos ao fim do nosso tutorial até mais.

Este post funciona também com o VB 2010 Express.

Fique atento no próximo post.

• Em caso de dúvidas contacte-me meuloginm150@gmail.com