Hola.
Dim strg As String = (TextBoxBuscar.Text)
Dim stlg As Integer = strg.Length
Dim indx As Integer = -1
Do
indx = TextBoxTexto.Text.IndexOf(strg, indx + 1)
If indx <> -1 Then
TextBoxTexto.SelectionStart = indx
TextBoxTexto.SelectionLength = stlg
TextBoxTexto.ScrollToCaret()
If MessageBox.Show("Buscar siguiente?", "Continuar", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
Exit Do
End If
End If
Loop Until indx = -1
Con el código anterior intento buscar una palabra (TextBoxBuscar.Text) en un TextBox (TextBoxTexto.Text) con varias líneas que contienen o no la palabra que quiero encontrar.
Funciona todo bien. Pero lo que necesito es cambiar el MessageBox.Show
por un Button que haga lo mismo.
Gracias por sus respuestas.
Rafael FM