Tutorial - ¡Crea tu propio navegador web!
By SoyJoaquin.
Introducción: En este tema te voy a enseñar a hacer un navegador web básico usando VB6 con el controlador
Internet Controls.
Paso 1:Abre Visual Basic 6 y crea un documento estándar (EXE), Una ves creado vas a incluir el complemento
Microsoft Internet Controls. ¿Como?, En la barra de menú superior vas a darle click a Proyecto >> Componentes... >> Controles (viene por defecto), en la lista vas a buscar Microsoft Internet Controls, Das click a la casilla y después Aceptar.
Una vez agregado el complemento de darás cuenta que se a agregado un nuevo controlador entre tus herramientas, Este es el de
WebBrowser el cual te permite tener un acceso a internet usando como base otro explorador. (Usualmente Internet Explorer).
Paso 2:Vas a añadir el controlador WebBrowser, Ten en cuenta que WebBrowser1 Sera el nombre por defecto, así que mejor no lo cambiaremos.
¿Ya lo agregaste? perfecto.
Ahora vamos a editar un poco el código.
En el evento Load del formulario (Form_Load) vamos a indicar la pagina de inicio de nuestro navegador. pasa eso usamos la etiqueta
Navigate de la siguiente forma:
WebBrowser1.Navigate "www.miweb.com"
Esto lo que ara es que al iniciar el formulario (se abra la aplicación) va a entrar a la pagina indicada.
El código nos estará quedando de la siguiente forma:
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
¿Bien? Continuamos.
Ahhh.. ok ya tenemos nuestro navegador pero.. ¿Ahora como hacemos para entrar a la pagina deseada?, Muy fácil, Vas a agregar un controlador
TextBox y
CommandButton bajo los nombres de defecto. (Text1 y Command1).
Lo que viene es muy fácil, lo que aremos sera que al pulsar el CommandButton (Command1) el valor de la etiqueta Navigate del WebBrowser sea el indicado en el TextBox (Text1). ¿Como?
En el evento Click de Command1 vas a ingresar el siguiente código:
WebBrowser1.Navigate Text1.Text
Eso quiere decir que nuestro código por los momentos nos va quedando así:
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
¿Bien? pues, Eso es lo mas básico!
Ya tenemos nuestro navegador funcionando. Si quieres personalizarlo con mas opciones ver paso3.
Paso 3:Bueno, ya sabes manejar los eventos de cada controlador de tu navegador.
Ahora te dejare algunos códigos para agregarle mas opciones.
Atrás:Añade un nuevo botón
CommandButton bajo el nombre de defecto (Command2). En el evento Click del CommandButton vas a agregar el siguiente código:
On Error Resume Next
WebBrowser1.GoBack
Text1.Text = WebBrowser1.LocationURL
El On Error Resume Next es para no mostrar un error en caso de que sea presionado el botón atrás sin haber paginas anteriores.
Adelante:Añade un nuevo botón
CommandButton bajo el nombre de defecto (Command3). En el evento Click del CommandButton vas a agregar el siguiente código:
On Error Resume Next
WebBrowser1.GoForward
Text1.Text = WebBrowser1.LocationURL
El On Error Resume Next es para no mostrar un error en caso de que sea presionado el botón adelante sin haber paginas siguientes.
Actualizar:Añade un nuevo botón
CommandButton bajo el nombre de defecto (Command4). En el evento Click del CommandButton vas a agregar el siguiente código:
WebBrowser1.Refresh
Detener:Añade un nuevo botón
CommandButton bajo el nombre de defecto (Command5). En el evento Click del CommandButton vas a agregar el siguiente código:
WebBrowser1.Stop
Saludos, Espero que les aya sido de utilidad.