Creación de un Navegador Web en VB.NET 2003
Uso del Componente COM "Explorador del Web de Microsoft"

Fecha: 11/Oct/2004 (Octubre 11 de 2004)
Autor: Luis Fernando Chavarriaga Cano ([email protected])

 


Con la ayuda del Componente COM "Explorador del Web de Microsoft" (ubicado en c:\WINDOWS\System32\shdocvw.dll) construiremos nuestro propio navegador web en Visual Basic .NET 2003

Para seleccionar este componente hacemos clic derecho sobre el Cuadro de Herramientas, luego en Agregar o quitar elementos, clic sobre la pestaña Componentes COM y seleccionamos Explorador del Web de Microsoft y clic en aceptar

La creación de esta aplicación es bastante simple ya que el componente nos brinda bastantes métodos propios del Inernet Explorer

Código Fuente

Option Explicit On

Public Class FormMain

Inherits System.Windows.Forms.Form

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

    Navegar()

End Sub

Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click

    Try

        wb.GoBack()

    Catch Er As Exception

        MsgBox(Er.Message, MsgBoxStyle.Information, "Información")

    End Try

End Sub

Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click

    Try

        wb.GoForward()

    Catch Er As Exception

        MsgBox(Er.Message.ToString, MsgBoxStyle.Information, "Información")

    End Try

 End Sub

Private Sub txtURL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtURL.KeyPress

    If e.KeyChar() = ChrW(13) Then

        Navegar()

    End If

End Sub

Friend Sub Navegar()

    Try

        Dim URL As String

        URL = txtURL.Text

        wb.Navigate(URL)

    Catch Er As Exception

        MsgBox(Er.Message, MsgBoxStyle.Information, "Información")

    End Try

End Sub

End Class

 


ir al índice

Fichero con el código de ejemplo: luisf_creacionnavegadorwebenvbnet2003.zip - Tamaño 8 KB