1 - Crie um novo projeto em VB, com o nome que desejar, feito isso insira os componentes abaixo no Formulário e renomeie eles conforme solicitado:
_________________________
|Componente | Nome |
-------------------------
|TextBox | txtURL |
|Panel1 | Panel1 |
|Button1 | btVoltar |
|Button2 | btAvancar |
|button3 | btNavegar |
|webBrowser1 | wBrouser |
|Label1 | lbSite |
-------------------------
Exp:
2 - No btNavegar insira o seguinte código :
Dim sUrl As String
sUrl = txtURL.Text
If (String.IsNullOrEmpty(sUrl)) Then
sUrl = "www.google.com.br"
End If
wBrowser.Navigate(sUrl)
3 - No btVoltar insira o seguinte código :
wBrowser.GoBack()
4 - No btAvancar insira o seguinte código :
wBrowser.GoForward()
5 - no Componente wBrowser no evento DocumentCompleted insira o código abaixo :
txtURL.Text = wBrowser.Url.ToString
Com isso finalizo este artigo, abraço a todos.
