#1
Sr.ScrollQua Out 10, 2012 10:41 pm
Sr.Scroll
Bom galera,o tutorial ensina a "criar um Navegado de Internet"
Pra começar
1º Abra o VB 2008
2º Crie um projeto e logo em seguida Add em seu projeto 5 Botoes, um TEXTBOX e um botão do lado do TEXTBOX e renomeie o TEXTBOX como link
3°crie um WEBBROWSER
4° Adicione esse codigo no primeiro botão
9º Passo> No botao do lado no TEXTBOX add o seguinte comando>
10º Passo> Add no seu script o seguinte:
Chegamos ao fim do nosso tutorial.
Outros codigo interessantes>
Código:
Código:
CREDITOS: Dede_eccel
Pra começar
1º Abra o VB 2008
2º Crie um projeto e logo em seguida Add em seu projeto 5 Botoes, um TEXTBOX e um botão do lado do TEXTBOX e renomeie o TEXTBOX como link
3°crie um WEBBROWSER
4° Adicione esse codigo no primeiro botão
- Código:
WebBrowser1.GoBack()
Esse comando serve para voltar a pagina
- Código:
WebBrowser1.GoForward()
Esse comando serve para avançar a página
- Código:
WebBrowser1.Refresh()
Esse comando serve para atualizar a página
- Código:
WebBrowser1.Stop()
Esse comando serve para parar a navegação
- Código:
WebBrowser1.GoHome()
Esse Comando serve para Ir a página inicial
9º Passo> No botao do lado no TEXTBOX add o seguinte comando>
- Código:
WebBrowser1.Navigate(link.Text)
Esse comando serve para direcionar o navegador para a pagina colocada no TEXTBOX
10º Passo> Add 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
Chegamos ao fim do nosso tutorial.
Outros codigo interessantes>
Código:
- 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
Código:
- 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
CREDITOS: Dede_eccel
