Un navegador a medida.

En ocasiones nos encontramos con la necesidad de mostrar texto con formato html en nuestras aplicaciones. Este artículo describe el modo en el que podemos construir un potenete navegador y, lo mejor de todo, sin necesidad de complicarnos mucho la vida.

El Internet Explorer, a partir de la versión 3, está constituido por un pequeño módulo ejecutable más una DLL (SHDOCVW.DLL) que implementa un control (como si fuese un ocx, pero en una dll). La mayor parte de las funcionalidades del IE se encuentran en el control, de modo que incluyendo ese control en nuestras aplicaciones podemos mostrar texto con formato html. Este control nos proporciona además soporte para javascript, vbscript, activex, java, ....

Para usar este control debes comprobar que tienes instalado IE 3.0 (o posterior) y luego debes incluir el control WebBrowser en tu proyecto. En VB4 y VB5 este control aparece como Microsoft Internet Controls, en VC++ aparece como Control Explorador de Web de Microsoft.lnk, ..

En VB4 se pueden usar las propiedades y métodos del control, sin embargo no aparecen los eventos. VB5 sí que soporta los eventos del control WebBrowser.

El objeto WebBrowser tiene las siguientes propiedades, métodos y eventos:

Propiedades:

Application, Busy, Container, Document, Height, Left, LocationName, LocationURL, Parent, Top, TopLevelContainer, Type, Width

Métodos:

GoBack, GoForward, GoHome, GoSearch, Navigate, Refresh, Refresh2, Stop

Eventos:

BeforeNavigate, CommandStateChange, DownloadBegin, DownloadComplete, FrameBeforeNavigate, FrameNavigateComplete, FrameNewWindow, NavigateComplete, NewWindow, ProgressChange, StatusTextChange, TitleChange

La documentacion del objeto WebBrowser se puede encontrar en el msdn de microsoft, sin embargo para la mayor parte de las aplicaciones basta saber que el método Navigate es el que se usa para cargar una página web. A continuación se muestra el código más significativo de un navegador realizado con VB4 usando el control WebBrowser. El ejemplo completo se puede descargar haciendo click aquí.

Private Sub FileOpen_Click()
  On Error GoTo salida
  CommonDialog1.ShowOpen
  WebBrowser1.Navigate CommonDialog1.filename
salida:
End Sub

Private Sub OpenUrl_Click()
  Form2.Show 1
  If Len(Form2.Text1) > 0 Then WebBrowser1.Navigate Form2.Text1
End Sub

Private Sub Form_Load()
  WebBrowser1.GoHome
End Sub

Private Sub Principal_Click()
  WebBrowser1.GoHome
End Sub

Private Sub Anterior_Click()
  On Error Resume Next
  WebBrowser1.GoBack
End Sub

Private Sub Siguiente_Click()
  On Error Resume Next
  WebBrowser1.GoForward
End Sub

Private Sub Refrescar_Click()
  WebBrowser1.Refresh
End Sub

Private Sub Detener_Click()
  WebBrowser1.Stop
End Sub