Navegador Web en Visual Basic Browser

Situamos un Label con la Propiedad Caption en blanco.

Dentro del Label situamos 5 Botones. Ponemos en blanco Caption.
Ponemos Sytle en 1. Graphical
En cada Picture situamos uno de los dibujos que puedes bajar de aquí: web.zip (3 K)

Añadimos otro Label que pone Dirección y un TextBox.

Quedará así:

Private Sub Command1_Click()
' Atrás
On Error Resume Next
WebBrowser1.GoBack
Text1.Text = WebBrowser1.LocationURL ' depurar
End Sub

Private Sub Command2_Click()
' Adelante
On Error Resume Next
WebBrowser1.GoForward
Text1.Text = WebBrowser1.LocationURL ' depurar
End Sub

Private Sub Command3_Click()
' Inicio al disco C
Text1.Text = "file://C:"
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command4_Click()
' Actualizar
WebBrowser1.Refresh
End Sub

Private Sub Command5_Click()
' Detener
WebBrowser1.Stop
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Podemos mejorarlo poniendo un control StatusBar 
' (Proyectos/Componentes/Microsoft Windows Common Controls 6.0
' y luego insertamos un StatusBar

Private Sub WebBrowser1_DownloadBegin()
StatusBar1.Panels(1).Text = "Cargando Página..."
End Sub

Private Sub WebBrowser1_DownloadComplete()
StatusBar1.Panels(1).Text = "Listo"
End Sub

Le das las dimensiones apropiadas a los controles, e incluso puedes hacer que los controles se adapten a las dimensiones del Formulario.

Puedes hacer que el Formulario se presente Maximizado cuando se cargue.

Bájate éste navegador a pantalla completa. Internet.exe (28 KB)

Comprobarás que cuando el enlace sale a otra ventana, ésta sale con el Internet Explorer, pero eso no es un problema del navegador, sino que tu sistema operativo está configurado para que los archivos htm se abran con ésta últama aplicación. Ésto lo puedes corregir mediante:
Mi PC / Herramientas / Opciones de carpetas / Tipos de archivos.

Y Modificar el programa que abre .HTM

Página siguiente (13) >>