busqueda en richtexbox

[pagafantas]

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

[Aquaventus]

mira aqui hay un tema nose si te sirva que fue solucionado :

http://www.forosdelweb.com/f29/probl...vb-net-873717/

Espero te sea de utilidad. Saludos!