olá gente , estou aqui para escrever meu segundo tutorial e oque eu ando reparando é que a maioria dos tutorias se relaciona a programação de ultilitarios/bot para tibia . entao eu axei bom varias 1 pouco

nesse tutorial iremos aprender a faser 1 web bowser simples (:

vamos precisar de :

Mostrar conteúdo oculto

4 buttons

1 textbox

1 webBrowser

começando :

vamos iniciar pelo design do nosso navegador que pode ser feito a principio assim :

selecione primeiro o webBrowser ele a principio vai pegar o form1 inteiro clicke na setinha do lado e em undock .. como mostra a imagem :

Mostrar conteúdo oculto

após isso minimizar desenvolva 1 design parecido com esse :

Mostrar conteúdo oculto

agora vamos começar a programaçao propriamente dita :

clique duas vezes no botão "Buscar" para criar 1 evento on click e digite esse codigo :

Mostrar conteúdo oculto

WebBrowser1.Navigate(TextBox1.Text)

explicando : ele vai executar no webBrowser1 a "navegação" do que está escrito no textbox1 ou seja nossa URL

dica : com base nisso da para criar botões de atalhos para sites

exemplo :

Mostrar conteúdo oculto

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

textbox1.text = www.orkut.com

WebBrowser1.Navigate(TextBox1.Text)

End Sub

agora clique duas vezes no botao voltar e adicione o codigo :

Mostrar conteúdo oculto

WebBrowser1.GoBack()

axo que esse nem precisa explicar né ? ele apenas volta a pagina anterior isso está bem claro em ".GoBack"

agora clique duas vezes no botao avançar e adicione o codigo :

Mostrar conteúdo oculto

WebBrowser1.GoForward

mesma coisa que o anterior . ele avança uma página e isso está claro em ".GoForward"

agora clique no botao atualizar e adicione :

Mostrar conteúdo oculto

WebBrowser1.Refresh()

ele apenas atualiza a pagina do webbrowser1 .

se você seguiu o tutorial corretamente vs tera 1 codigo final parecido com isso :

Mostrar conteúdo oculto

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WebBrowser1.Navigate(TextBox1.Text)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

WebBrowser1.GoBack()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

WebBrowser1.GoForward()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

WebBrowser1.Refresh()

End Sub

End Class

agora compile e execute

e pronto seu navegador está terminado

comentem , critiquem afinal as criticas que nos fasem evoluir ,postem sugenstoes etc... .

Cara muito bom, me ajudou com esse código ...

sou muito bom de Python e C, mais VB to bem no começo

eu tambem estou no começo mais obrigado que gostou da 1 rep+ ae

qualquer duvida se eu souber responder é só mandar msg

abraç

falto os créditos do autor :X, esse tipo de navegador não é bom, pois ele ainda usa as bibliotecas/dll do ie. o bom seria fazer um do 0 mesmo : D

  Em 05/03/2011 em 02:39, Guido Yuhara disse:

falto os créditos do autor :X, esse tipo de navegador não é bom, pois ele ainda usa as bibliotecas/dll do ie. o bom seria fazer um do 0 mesmo : D

desculpa a demora para responder , sim esse navegador eu aprendi a faser fuçando nas funções do visual studio , então os creditos seriam meus ... mais acho sem sentido colocar credito meu em uma coisa tosca como um navegador simples. o tutorial fui eu que escrevi. pode haver parecidos pq n tem mto oque explicar sobre esse assunto , mais com essas palavras eu acho bem dificil. desculpe qualquer coisa.