Cerfo

Hola gente de Taringa! En esta ocasion les traigo algo diferente. Un tutorial para crear un navegador web en VB Bueno, empecemos 1. Primero hay que crear el proyecto: 2. Luego cambiamos el tamaño hasta que te guste: 3. Creamos un Panel en donde iran ubicados los botones y un campo de texto: y le cambiamos el color: y asi queda: 4. Creamos los botones (Los que quieran los botones pidan por MP): Seleccionamos en Picture Box y hacemos 5 de esos y ponemos los botones y configuramos la imagen y asi queda 5. Luego colocamos el campo donde iria la pagina web: Lo agrandamos y asi queda: 6. Colocamos un campo de texto: 7. Colocamos esta configuracion al Panel y al Tab Control: 8. Una vez que este todo hecho, colocamos el codigo: Public Class Form1 Dim int As Integer = 0 Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Browser As New WebBrowser TabControl1.TabPages.Add("New Page" ) Browser.Name = "Web Browser" Browser.Dock = DockStyle.Fill TabControl1.SelectedTab.Controls.Add(Browser) AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome() End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack() End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward() End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome() End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text) End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh() End Sub End Class Espero que lo hayan disfrutado. Cualquier cosa, mandarme un MP ESPACIO PUBLICITARIO

Sin descripción