Rechercher et sélectionner un texte dans une textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 809 fois - Téléchargée 84 fois

Contenu du snippet

Soit une form (form1) avec deux Textbox (text1 et text2) et un bouton (Find).
- Text1 un contient un texte.
- Text2 contient l'expression à rechercher.
- Find lance la commande de recherche.

Source / Exemple :


'On affecte la commande suivante au bouton Find :

Private Sub Find_Click()
Dim Found as string
Found = InStr(Form1.Text1.Text, Form1.Text2.Text)
'si le contenu de Text2 existe dans Text1 
If Found <> 0 Then       
   Form1.Text1.SetFocus  
   Form1.Text1.SelStart = Found - 1
' on le sélectionne 
   Form1.Text1.SelLength = Len(Form1.Text2.Text)
End If
End Sub

Conclusion :


Ensuite, on fait ce qu'on a besoin de faire.
(voir aussi Couper, copier, coller dans une textbox).

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de psionnist

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.