TUTORIAL VB
Hola amigos de T!, este es mi primer post, en el que les voy a enseñar a hacer un navegador web con pestañas en el tan querido Visual Basic 2005 o 2008 (yo usaré el 2005) Se que hay muchos tutos para hacer navegadores web, pero busque y no encontré ningun post que enseñe a hacer un navegador con pestañas.
¡¡EMPECEMOS!!
Paso nº 1:
Abrir el VB...
Paso nº 2:
Ya abierto teclean ctrl+n, o van a Archivo > Nuevo proyecto > Aplicación para Windows, le ponen el nombre al proyecto, y le dan a Aceptar.
Cuando les aparezca una ventanita llamada Form1, la ajustan a la medida necesaria.
Paso nº 3:
Hacer click en cuadro de herramientas (se encuentra a la izquierda) , y les aparecerá algo así:
Eligen la opción Button y los colocan en la medida que quieran. Deben poner:
Atras (o < )
Adelante (o > )
Actualizar
Detener (o X)
Nueva Pestaña
Ir
Home (o Inicio, Casa, etc)
Después de colocar estos buttons, ponen un textbox.
Así me quedó:
Paso nº 4:
Ponen un tabcontrol. ( está en cuadro de herramientas )
Hacen click en una de las pestañas que dicen TabPage1 ó 2, y a la derecha buscan tabpages, hacen click en ahi, despues en los 3 puntitos y hacen click en remove, ponen ok.
Paso nº 5
¡¡Ahora la programación!!
Hacen doble click en el botón Nueva pestaña les aparecerá esto:
Se colocan debajo de public class form1 y escriben:
Dim i As Integer = 1
Y debajo de Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ponen:
Dim browse As New WebBrowser
TabControl1.TabPages.Add(i, "Page " & i)
TabControl1.SelectTab(i - 1)
browse.Name = "wb"
browse.Dock = DockStyle.fill
TabControl1.SelectedTab.Controls.Add(browse)
i = i + 1
Quedará así:
Paso nº 6:
Copian lo que escribieron,
( Dim browse As New WebBrowser
TabControl1.TabPages.Add(i, "Page " & i)
TabControl1.SelectTab(i - 1)
browse.Name = "wb"
browse.Dock = DockStyle.fill
TabControl1.SelectedTab.Controls.Add(browse)
i = i + 1 )
ESO ^ QUE ESCRIBIERON HOY,
hacen 2 clicks en el título de la ventana (donde dice Form1) y lo pegan.
Paso nº 7:
Hacen doble click en los botones que indico y pegan lo que le corresponde...
Botón Ir:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
Botón Atrás o <:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
Botón Adelante o >:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
Botón Actualizar:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
Botón Detener:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
Botón Home, Inicio etc:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
Si le ponen un botón imprimir:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintDialog()
Y les pido disculpas porque olvidé el botón Cerrar Pestaña, así que pónganlo y le colocan éste código:
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
i = i - 1
Si le ponen botón salir, el codigo sería:
End
Para hacer que al maximizar la pantalla también maximice la pestaña, hacen click en el espacio blanco donde se ve la página web y en la barra de la derecha, donde dice anchor, seleccionan las barritas que faltan (creo que son la de abajo y la de la derecha.
Para ponerle al nombre del programa en la parte superior de la ventana (donde dice form1 ) hacen click ahí y se fijan en la barra de la derecha donde dice text, le borran form1 y ponen el nombre del programa.
Cap del mío terminado:
La única diferencia al del tuto es que yo le puse un menustrip (el que dice archivo ) que tiene un submenu que dice salir.
Espero que les haya gustado mi tutorial, perdon por los errores, acepto críticas para bien.
Nos vemos en otro post.