Creación de un Navegador Web en VB.NET
2003 Fecha: 11/Oct/2004 (Octubre 11 de 2004)
|
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 FormMainInherits System.Windows.Forms.Form
Private
Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.ClickNavegar()
End Sub
Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.ClickTry
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.ClickTry
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 StringURL = txtURL.Text
wb.Navigate(URL)
Catch Er As Exception
MsgBox(Er.Message, MsgBoxStyle.Information, "Información")
End Try
End SubEnd
Class
Fichero con el código de ejemplo: luisf_creacionnavegadorwebenvbnet2003.zip - Tamaño 8 KB