Discussion :

[Invité]

bonjour,

dans ma richtextbox j'ai fait une nouvelle form avec un bouton rechercher pour pouvoir rechercher du texte
voila mon code qui marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim i, j As System.Int32
        strTexte = frmMain.RichTextBoxFR1.Text
        strChaine = TextBox1.Text
 
        For i = 0 To strTexte.Length - strChaine.Length Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
                j += 1
 
                frmMain.RichTextBoxFR1.Focus()
                frmMain.RichTextBoxFR1.SelectionStart = i
                frmMain.RichTextBoxFR1.SelectionLength = strChaine.Length
            End If
 
        Next

puis ensuite je voulait faire un bouton suivant
voila le code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim i As System.Int32
        For i = 1 To 10 step 2
            If strtexte.Substring(i, strChaine.Length) = strChaine Then
 
                frmMain.RichTextBoxFR1.Focus()
                frmMain.RichTextBoxFR1.SelectionStart = i
                frmMain.RichTextBoxFR1.SelectionLength = strChaine.Length
            End If
        Next i

le problème c'est que quand je clique il passe a le recherche suivant mais il s'arrête la il continue pas la suite
j'ai essayer de changer en for i = 1 to 10 mais rien ne change
savez vous pourquoi ??