Lec 23

Creación de un navegador Web

¿Qué navegador que utiliza para navegar por Internet? Básicamente todos les gusta navegar por Internet a través de Google Chrome, Internet Explorer, Firefox, Safari, Opera y mucho más. 

Sin embargo, no está bien si usted puede crear su propio navegador web que se puede personalizar a su gusto? Sí, se puede hacer eso en Visual Basic 2015, y bastante fácil también. 

En esta lección, vamos a aprender a crear un simple navegador web y ponerlo en marcha en unos pocos minutos.

En primer lugar, iniciar un nuevo proyecto en Visual Basic 2015 y el nombre con cualquier nombre que usted tiene gusto, estamos usando el nombre MyWebBrowser. Cambiar el tamaño de Form1 a 800,600 en su ventana de propiedades.

 A continuación, es necesario agregar un motor para que el navegador web puede conectarse a Internet, y este mismo motor es el control WebBrowser, se encuentra en la caja de herramientas en el lado izquierdo, establezca su propiedad tamaño de 600400 y cambiar su nombre a MyWebBrowser.

 A continuación, insertar un cuadro de texto y colocarlo en la parte superior del control WebBrowser, esto va a ser servido como la barra de direcciones donde el usuario puede introducir la URL. A continuación, coloque un botón al lado del cuadro de texto y cambiar su texto como GO y cambiar su nombre a BtnGo. Por último, añadir unos cuantos más botones y cambiar sus textos a Inicio, Atrás, Adelante, Actualizar y Búsqueda respectivamente.

El control WebBrowser comprende diversos métodos como GoHome, GoBack, GoForward, Buscar, Actualizar, Navegar y más. Pueden ser utilizados para escribir procedimientos basados ​​en eventos para los distintos botones de navegación que colocamos en el navegador web. Para el método Navigate, tenemos que utilizar la siguiente sintaxis:

WebBrowser.Navigate (URL)

El código

Private Sub BtnGO_Click (remitente como objeto, e como EventArgs) Maneja BtnGO.Click
MyWebBrowser.Navigate (TxtURL.Text)
End Sub

Private Sub BtnSearch_Click (remitente como objeto, e como EventArgs) Maneja BtnSearch.Click
MyWebBrowser.GoSearch ()
End Sub

Private Sub BtnHome_Click (remitente como objeto, e como EventArgs) Maneja BtnHome.Click
MyWebBrowser.GoHome ()
End Sub

Private Sub BtnBack_Click (remitente como objeto, e como EventArgs) Maneja BtnBack.Click
MyWebBrowser.GoBack ()
End Sub

Private Sub BtnForward_Click (remitente como objeto, e como EventArgs) Maneja Button1.Click
MyWebBrowser.GoForward ()
End Sub

Private Sub BtnRefresh_Click (remitente como objeto, e como EventArgs) Maneja BtnRefresh.Click
MyWebBrowser.Refresh ()
End Sub

La interfaz del navegador

23.1 vb2013_figure23.1Figure