Discussion :

[Invité]

bonjour a tousse

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 :

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

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

[chrismonoye]

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).

[Invité]

pour ouvrir la boite de dialogue rechercher je fait

Code :

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

Form3.Show()

[Ehjoe]

Bonjour,

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

CQFD

Cordialement.

Joe.

[chrismonoye]

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.

[Invité]

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

[Ehjoe]

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.

[chrismonoye]

Bonjour,
il suffisait de donner le focus au RichTextBox :

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 = 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".

[Invité]

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

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.

[Chiffre]

Bonjour

Je veut remercier M.chrismonoye

Pour son code sur Bloc-note
Recherche - Suivant

Merci

chiffre