Selection d'un mot

bilaloch Messages postés 556 Date d'inscription lundi 6 octobre 2003 Statut Membre Dernière intervention 31 octobre 2019 - 7 sept. 2004 à 13:50
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 7 sept. 2004 à 14:01
Bonjour,

Comment selectionner un mot dans un phrase ou un groupe de mot svp ?

Merci :approve) et @ Plus ;)

BIL@Loch
:)

1 réponse

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
7 sept. 2004 à 14:01
Private Sub Form_Load ()
Text1.Text = "Les deux grands plaisirs des êtres humains sont la bonne chair et la musique classique."
End Sub

Private Sub Form_Click ()
' Déclare les variables.
Dim Search, Where
' Obtient la chaîne à rechercher de l'utilisateur.
Search = InputBox("Tapez le texte à rechercher:")
' Recherche la chaîne dans le texte.
Where = InStr(Text1.Text, Search)
' S'il la trouve,
If Where Then
' définit le début de la sélection
Text1.SelStart = Where - 1
' et définit sa longueur.
Text1.SelLength = Len(Search)
Else
' Informe l'utilisateur.
MsgBox "Chaîne introuvable."
End If
End Sub

It@li@
0