1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TextBoxTemoin As New TextBox
TextBoxTemoin.Text = TextBox5.Text
Dim searchmot As String
Dim PosMot As Integer
Dim numIndex = 0
Dim counter = 0
searchmot = TextBox1.Text
PosMot = InStr(TextBoxTemoin.Text.ToLower, TextBox1.Text.ToLower)
For Each caract In TextBoxTemoin.Text
If PosMot <> 0 Then
counter = 1
'PosMot va de 1 à len(text1.text) alors que SelStart va de 0 à len(text1.text)-1
'Il faut donc enlever 1
numIndex = TextBoxTemoin.Text.IndexOf(searchmot)
TextBoxTemoin.Text = TextBoxTemoin.Text.Remove(numIndex, searchmot.Length)
PosMot = InStr(TextBoxTemoin.Text.ToLower, searchmot.ToLower)
TextBox5.SelectionStart = PosMot 'défini position du curseur
TextBox5.SelectionLength = Len(searchmot) 'défini longueur de surlignement
TextBox5.Focus() 'donne le focus à la boite text1
Else
If counter = 0 Then
MsgBox("Client inconnu")
Exit For
End If
End If
Next
End Sub |
Partager