rechercher dans une richtextbox

bonjour a tousse:D

j'ai fait un petit bloc note avec un bouton rechercher quand je clique dessus sa ouvre une autre form ou il y a une textbox et un bouton rechercher
sa marche très bien seulement quand je recherche un mot ou une lettre quand je clique sur rechercher rien ne se passe c'est quand je ferme la fenetre rechercher donc je ferme la form et c'est la qu'il me sélectionne le mot que j'ai rechercher.
donc en faite je voudrait juste ne pas avoir besoins de fermer ma form
voila mon code si vous avez des idée pour l'améliorer je suis preneur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rechercher.Click Dim i, j As System.Int32 strTexte = Form1.RichTextBox.Text strChaine = TextBox1.Text   For i = 0 To strTexte.Length - strChaine.Length Step 1 If strTexte.Substring(i, strChaine.Length) = strChaine Then j += 1 Form1.RichTextBox.SelectionStart = i Form1.RichTextBox.SelectionLength = strChaine.Length End If   Next End Sub End Class

---

Bonsoir,
si le form-fille est appelée avec "ShowDialog", donc modale, le résultat est atteint à la fermeture de celle ci.
Si c'est le cas utiliser "Show" (non modale).

pour ouvrir la boite de dialogue rechercher je fait

Code:

---

Form3.Show()

---

Bonjour,

Ou simplement comme tous les logiciels, en haut du RTF un menu avec <Chercher> et <Rechercher> qui lance une InputBox

CQFD

Cordialement.

Joe.

Sauf si j'ai mal compris, ce n'est pas un logiciel appelé, mais un formulaire avec un richTextBox qui charge un fichier texte (rtf ou autre).
Il faut donc créer la recherche.

voila exact
c'est une richtextbox dans form1 avec un menu
quand je clique sur le bouton rechercher sa ouvre form3 ou c'est la que je recherche un mot

Citation:

---

Envoyé par Morpheus500

voila exact
c'est une richtextbox dans form1 avec un menu
quand je clique sur le bouton rechercher sa ouvre form3 ou c'est la que je recherche un mot

---

Bonsoir,

Ben alors, dans la form1, suffit de mettre deux menus <Chercher> et <Rechercher>, puis de les brancher sur une InputBox pour la saisie de <Chercher>

Cordialement.

Joe.

Bonjour,
il suffisait de donner le focus au RichTextBox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim i, j As System.Int32 strTexte = Form1.RichTextBox1.Text strChaine = TextBox1.Text   For i = 0 To strTexte.Length - strChaine.Length Step 1 If strTexte.Substring(i, strChaine.Length) = strChaine Then j += 1 'Form1.RichTextBox1.Select(i, strChaine.Length) Form1.RichTextBox1.Focus() Form1.RichTextBox1.SelectionStart = i Form1.RichTextBox1.SelectionLength = strChaine.Length End If   Next

---

NB, la ligne en commentaire, est plus concise.
Après ça va défiler jusqu'à la dernière occurrence trouvée.
Il faudra faire déjà, une collection de ces occurrence, puis les sélectionner dans le richtextbox, avec, par exemple un bouton "suivant".

cool sa marche:ccool:
merci bien
c'était vraiment pas grand chose:roll:

avant j'avais mis un bouton suivant mais j'ai eu quelque problème alors je l'est enlevé
et donc je me souvient plus du code qui permet de faire sa, je sais que c'est hyper simple aussi.

Bonjour

Je veut remercier M.chrismonoye

Pour son code sur Bloc-note
Recherche - Suivant

Merci

chiffre