[VB]Criando Navegador - MulekAnonymo

por **MulekAnonymo** Ter Jul 24, 2012 8:46 pm

MulekAnonymo: Membro; Mensagens : 161
Pontos : 187
Reputação : 1
Data de inscrição : 23/07/2012
Idade : 25
Localização : Anonymo

Mensagem nº1

[VB]Criando Navegador - MulekAnonymo

por MulekAnonymo Ter Jul 24, 2012 8:46 pm

Como Criar um Navegador Avançado No VB 2008 Very Happy

É Muito Simples:
1- Crie um Projeto do Windowns, agr adicione 6 Buttons ,1 TextBox ,1 ProcessBox e 1 WebBrowser ;

2- Renomei-e Os Buttons :Text do Button1 = Voltar,Text do Button2 = Avançar, Button3= Recarregar,Button4 = Parar,Button5 = Pagina Inicial,Button6 coloque na frente do TextBox e Text=Ir

3- Agr de 2x Clicks no Button1 Coloque o Codigo=

WebBrowser1.GoBack()

2x Clicks No Button2 Codigo:

WebBrowser1.GoForward()

2x Clicks No Button3:

WebBrowser1.Refresh()

2x Clicks no Button4:

WebBrowser1.Stop()

2x Clicks no Button5:

WebBrowser1.GoHome()

2x Clicks no Button6:

WebBrowser1.Navigate(TextBox.Text)

2x Clicks no Form1 Vc Vai ver End Sub click e de 1 espaço e coloque o tao Codigo

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

2x Clicks No Form1 E fassa o msm So q com esse codigo:

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

Pronto Test e Seja Felix

Games[FM]

Games[FM]

Games[FM]

Entrar

Os membros mais ativos do mês

Parceiros

[VB]Criando Navegador - MulekAnonymo

Votação

Oque Vc Achou Do Navegador?

[VB]Criando Navegador - MulekAnonymo

Tópicos semelhantes

Tópicos semelhantes

Procurar

Últimos assuntos

Votação

CLIQUE NOS ANUCIOS ABAIXO

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada