VideoCurso 18 VB.NET - Navegador Web (Webbrowser)

Pin It

En este video curso numero 18 veremos el uso de el navegador web y los controles basicos que este tiene como : atras , adelante , detener , actualizar y navegar.

Navegador Web 1

Navegador Web 2

NAVEGAR

Private Sub btnir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnir.Click

Navegador1.Navigate(txturl.Text)

End Sub

IR HACIA ATRAS

Private Sub btnatras_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnatras.Click
'IR ATRAS
Navegador1.GoBack()

End Sub

DETENER

Private Sub btndetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndetener.Click

Navegador1.Stop()
End Sub

ADELANTE

Private Sub btnadelante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadelante.Click
'IR ADELANTE
Navegador1.GoForward()
End Sub

ACTUALIZAR

Private Sub btnactualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnactualizar.Click

Navegador1.Refresh()
End Sub

CAMBIAR URL EN CAJA DE TEXTO

Private Sub Navegador1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles Navegador1.Navigated

txturl.Text = e.Url.ToString

End Sub

BARRA DE PROGRESO

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged


If e.CurrentProgress > 100 Then

barraprogreso.Value = 100

Exit Sub
ElseIf e.CurrentProgress < 0 Then barraprogreso.Value = 0 Exit Sub End If barraprogreso.Value = e.CurrentProgress End Sub