Primero tienen que importar el Control WEBBROWSER y ubicarlo donde se vera el Contenido de la pagina.
Luego crean un Textbox y Seis Botones que serán, El de “Ir”, “Atrás”, “Adelante”, “Actualizar”, “Detener”. “Inicio”
Para el Botón de Ir:
WebBrowser1.Navigate(TextBox1.Text)
Para el Botón de Atrás:
WebBrowser1.GoBack()Para el Botón de Adelante:
WebBrowser1.GoForward()
Para el Botón de Actualizar:
WebBrowser1.Refresh()
Para el Botón Detener:
WebBrowser1.Stop
Para el Botón Inicio:
WebBrowser1.GoHome()
Ahora en el Evento “DocumentCompleted” de WebBrowser1 Vamos a poner lo siguiente:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri
Esto lo pueden poner para que al teclear “ENTER” El navegador realice automáticamente la búsqueda.
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
WebBrowser1.Navigate(TextBox1.Text)
End If
También para que en el Navegador se muestre un texto con el proceso que se esta ejecutando, Abriendo determinada pagina web etc.
Pueden poner este código (Necesitan crear un Label1 y un Timer1)
Pueden poner este código (Necesitan crear un Label1 y un Timer1)
Luego dan Doble Click al Form1 y escriben:
Timer1.Start
Luego dan doble click al icono de Timer1 y escriben lo siguiente:
Label1.Text = WebBrowser1.StatusText
Bueno con todos estos códigos podrán hacer un buen navegador solo es cuestión de modificar algunas cosas para hacerlo aun mejor :P
Si de todas maneras lo han hecho y no les ha quedado muy bien pueden bajarse uno que yo hice desde Aquí
Si de todas maneras lo han hecho y no les ha quedado muy bien pueden bajarse uno que yo hice desde Aquí
No hay comentarios:
Publicar un comentario