Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Demande du texte recherché Dim sTextToFind As String = InputBox("Texte à rechercher :") If sTextToFind <> "" Then ' Recherche le 1er endroit où le texte se trouve Dim iPos As Long = InStr(TextBox1.Text, sTextToFind) ' Si iPos>0 Alors Texte recherché trouvé If iPos > 0 Then ' Sélectionne le texte retrouvé (mise en surbrillance) TextBox1.SelectionStart = iPos - 1 TextBox1.SelectionLength = IIf(iPos > 0, Len(sTextToFind), 0) End If End If ' Permet de voir la mise en surbrillance TextBox1.Focus() End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Demande du texte recherché Dim sTextToFind As String = InputBox("Texte à rechercher :") If sTextToFind <> "" Then ' Recherche le 1er endroit où le texte se trouve Dim iPos As Integer = TextBox1.Text.IndexOf(sTextToFind) ' Si iPos>0 Alors Texte recherché trouvé If iPos > 0 Then ' Sélectionne le texte retrouvé (mise en surbrillance) TextBox1.SelectionStart = iPos TextBox1.SelectionLength = sTextToFind.Length End If End If ' Permet de voir la mise en surbrillance TextBox1.Focus() End Sub
Private Sub RechercherDansMissionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherDansMissionsToolStripMenuItem.Click ' Demande du texte recherché Dim sTextToFind As String = InputBox("Texte à rechercher :") If sTextToFind <> "" Then ' Recherche le 1er endroit où le texte se trouve Dim iPos As Long = InStr(TextBox1.Text, sTextToFind) ' Si iPos>0 Alors Texte recherché trouvé If iPos > 0 Then ' Sélectionne le texte retrouvé (mise en surbrillance) TextBox1.SelectionStart = iPos - 1 TextBox1.SelectionLength = IIf(iPos > 0, Len(sTextToFind), 0) Else MsgBox("Texte non trouvé", vbCritical, "Erreur") End If End If Merci encore ;) Juste une dernière question : est-il possible de faire un système de ligne avec un label pour nous indiquer sur quel ligne se trouve notre curseur? ' Permet de voir la mise en surbrillance TextBox1.Focus() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question