Buenas pues estoy haciendo un editor de texto y me he enredado un poquito con las busquedas ya que nose ni como empezar, he pensado tantas cosas pero yo mismo me he dado por vencido u.u
Otra cosa que tengo pendiente es en un navegador web con pestañas como puedo poner en el texbox de direcciones la pagina en la que se encuentra una de las pestañas ya que nose donde ponerle la sentencia ni como.
me explico con un bucle for y un boton de nueva pestaña genero las pestañas con un tabmenu en el que introduzco un webbrowser pero ala hora de poner que me copie la url de ese webbrowser no se donde ponerla y cuando.
Código:
Public Class Form1
Dim i As Integer = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.google.es")
DIRECCION.Text = DIRECCION.Text & "www.google.es"
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
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
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
DIRECCION.Text = "www.google.es"
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
i = i - 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'home
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'GO
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(DIRECCION.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'atras
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'delante
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'refresh
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
DIRECCION.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'parar
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebBrowser1.StatusTextChanged
DIRECCION.Text = WebBrowser1.Url.ToString
End Sub
Private Sub TabControl1_click()
DIRECCION.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub
End Class