Rechercher et sélectionner un texte dans une textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 861 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

zeOffspring
Messages postés
18
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
17 août 2006
-
et ne fonctionne pas dans une textbox multiligne
ça pourrait etre un p'tit +
crazyjoke
Messages postés
147
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2005
-
en effet, ton code ne signal que la 1ere occurence...
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
-
nickel , juste ce qui me fallait !!
psionnist
Messages postés
14
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
24 juillet 2003
-
Sympa, mais ca ne trouve qu'une seule occurence... Faudrait rajouter un controle "suivant"
A+
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.