Tecnología

Inicio

Cómo crear un navegador Web en Visual Basics 2008

Cómo crear un navegador Web en Visual Basics 2008


Visual Basic 2008, incluyendo la versión gratuita Express, se suministra con una, muy apropiadamente, una función de representación HTML componente llamado "WebBrowser". Esto permite a los desarrolladores, con casi ninguna inversión de programación o el tiempo, para crear un navegador web o permitir su aplicación su propia documentación de visualización HTML.

Instrucciones

1 Añadir un cuadro de texto a la parte superior de su formulario. El nombre de "Addressbar" y cambiar su texto a "http://www.google.com" o cualquier otra dirección web por defecto desea utilizar.

2 Añadir un botón al lado del cuadro de texto. El nombre de "GoButton" y cambiar su propiedad de texto a "GO".

3 Agregue el control "WebBrowser" a la lista de componentes y arrastre sus fronteras de forma que llene el resto de la ventana. Ir a la lista de propiedades en la parte inferior derecha de la pantalla y encontrar la entrada "ancla". Se leerá "Arriba, Abajo." Haga clic en el cuadro desplegable para cambiarlo a "Arriba, Abajo, Izquierda, Derecha." Esto asegurará que su control de navegador web siempre llena la ventana si el usuario cambia el tamaño de la misma.

A continuación, vaya a la propiedad Url del control del explorador web y cambiarlo para leer "http://www.google.com". Si ha elegido otro sitio web predeterminado en el paso 1, utilice en su lugar.

4 Haga doble clic en el "GoButton" que creó en el paso 2. Esto creará una función de evento denominado "GoButton_Click" y lo llevará a ella automáticamente. Pegar el código siguiente en él. Las líneas REM describen lo que el código está haciendo en cada línea:

REM Set aside some memory to hold a new URL.
Dim url As Uri

REM intenta crear una URL en el texto en la barra de direcciones.
Tratar
url = Nueva Uri (AddressBar.Text)

REM Si el texto en la barra de direcciones no tiene sentido como una dirección URL, dar la advertencia de usuario
REM y luego les dicen que usted va a Google en su lugar.
Catch ex As Exception
MsgBox ( "URL no válida. El ir a Google en su lugar.")
url = Nueva Uri ( "http://www.google.com")
AddressBar.Text = "http://www.google.com"

Try End

REM Envía el componente navegador web para abrir la URL.
WebBrowser1.Url = url

Consejos y advertencias

  • Esto le da a su propio navegador de trabajo. Sin embargo, todavía es muy primitiva y hay algunas características que usted puede ser que desee agregar. Por ejemplo, las direcciones web introducidos en la barra de direcciones deben ser direcciones completas. En otras palabras, ellos deben comenzar con "http: //". Introducción de la dirección "google.com" dará un error URL no válida.