FAQ   Pesquisar   Membros   Grupos   Registar   Perfil   Ligar e ver Mensagens Privadas   Entrar 

Criando um navegador Web no VB 2005

 
Novo Tópico   Responder a Mensagem    Índice do Fórum IEEBrasil -> Visual Basic (Versão-base 6.0)
Ver mensagem anterior :: Ver mensagem seguinte  
Autor Mensagem
tiagocmelo
Site Admin


Registrado em: 11 Abr 2007
Mensagens: 147
Local/Origem: Olinda, PE - Brazil

MensagemColocada: Sáb Jun 30, 2007 3:31 pm    Assunto: Criando um navegador Web no VB 2005 Responder com Citação

Criando um navegador Web no VB 2005

José Carlos Macoratti é referência em Visual Basic no Brasil e autor dos livros "Aprenda Rápido: ASP" e "ASP, ADO e Banco de Dados na Internet". Mantenedor do site macoratti.net.




Neste artigo vou mostrar como você pode, facilmente, criar um navegador Web no VB 2005 (É gratuito, por enquanto...) com recursos interessantes e com pouco código.

Abra o VB 2005 e crie um novo projeto que pode ser chamado de meuWebBrowser, ou algo parecido. Fique à vontade.

No formulário padrão do projeto, form1.vb, inclua os seguintes componentes arrastando-os diretamente da caixa de ferramentas (toolbox), guia Common Controls, para o formulário, usando a disposição conforme mostrada na figura abaixo:

Componentes usados no formulário e suas respectivas propriedades alteradas:

1 controle WebBrowser

name: webb1
Url: http://www.macoratti.net

4 controles Button

name: btnFrente
Image: Clique no botão, selecione - local resource, e selecione a imagem conforme abaixo:



name: btnVolta image : idem
name: btnPara Image : idem
name: btnHome Image : idem

1 Controle Progressbar

name : ProgressBar1

1 controle TextBox

name: txtUrl
AutoCompleteMode: Suggest (ativa o recurso de auto-completar)
AutoCompleteSource: AllUrl (relembra todas as URLs já informadas antes)



Nota: Quando o controle WebBrowser for arrastado para o formulário você deverá localizar a guia Smart Tag e clicar na opção Undock Parent Container, conforme figura abaixo, para poder arrastar os demais controles para o formulário.



Lembrando que os principais eventos do controle WebBrowser são:

Navigating: Disparado quando você define uma nova URL ou quando o usuário clica em um link.

Navigated: Disparado antes do navegador iniciar o dowload da página.

ProgressChanged: Disparado periodicamente durante o download. Informe quantos bytes foram baixados e quantos ainda são esperados. (Vamos usar este evento para ativar a barra de progresso.)

DocumentCompleted: Disparado quando a página foi completamente carregada.

O código de cada botão de comando, colocado no evento Click, é exibido a seguir. Neles estou usando as propriedades do objeto WebBrowser para permitir a navegação.

Private Sub btnFrente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFrente.Click
webb1.GoForward()
End Sub

Private Sub btnVolta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolta.Click
webb1.GoBack()
End Sub

Private Sub btnPara_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPara.Click
webb1.Stop()
End Sub

Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
webb1.GoHome()
End Sub

Para podermos mostrar a barra de progresso funcionando durante a carga de uma página, teremos que tratar os eventos do controle WebBrowser:

ProgressChanged - quando houver qualquer alteração do progresso iremos alterar o valor da barra de progresso para exibir o progresso da operação ;

DocumentCOmpleted - quando a operação for completada iremos zerar o valor da barra de progresso.

Abaixo o código que foi colocado em cada um dos eventos:

Private Sub webb1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webb1.DocumentCompletedProgressBar1.Value = 0
End Sub

Private Sub webb1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webb1.ProgressChanged
ProgressBar1.Value = CType(((e.CurrentProgress / e.MaximumProgress) * 100), Integer)
End Sub

Na caixa de texto - txtUrl - apenas vou verificar se o texto informado tem tamanho menor que 1. Se isto ocorrer eu estou atribuindo a URL do site do Macoratti. (meu site pessoal).

Quando o usuário deixa (leave) a caixa de texto, você irá atribuir uma nova URL a propriedade URL do controle:

Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUrl.Leave
If txtUrl.Text.Length < 1 Then
txtUrl.Text = "http://www.macoratti.net"
End If
webb1.Url = New System.Uri(txtUrl.Text)
End Sub

Executando o projeto, e, estando conectado, teremos o resultado para o acesso ao site.

VB.NET 2005 é fácil, é simples, é legal. Divirta-se!
Voltar ao topo
Ver o perfil de utilizadores Enviar Mensagem Privada Visitar a página na web do utilizador MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder a Mensagem    Índice do Fórum IEEBrasil -> Visual Basic (Versão-base 6.0) Todos os tempos são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Neste fórum, você Não pode colocar mensagens novas
Não pode responder a mensagens
Não pode editar as suas mensagens
Não pode remover as suas mensagens
Você Não pode votar neste fórum


© 2007-2008 Informe.com. Get Free Forum Hosting
Powered by phpBB © 2001, 2005 phpBB Group
 :: 
Translation by: (c) 2000-2006 Luiz Castelo-Branco, Todos os direitos reservados.
Theme xand created by spleen.