Recherche dans listview1

Bonjour, voici en image mon projet :
Pièce jointe 162128

quand je recherche le code dans listview1 ça sélectionne en rouge :
Pièce jointe 162129

voici mon code :

Code:

---

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

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ListView1.Items.Add("A56601CB30510000") ListView1.Items.Add("A56602CB30510000") ListView1.Items.Add("A56603CB30510000") ListView1.Items.Add("A56604CB30510000") ListView1.Items.Add("BF2EA6A46A160000") ListView1.Items.Add("A78D4166193C0000") ListView1.Items.Add("59504DAA96298000") ListView1.Items.Add("D424EC43B9C93000") End Sub   Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.Text = TextBox1.Text.Replace(" ", "") For Each lv As ListViewItem In ListView1.Items If lv.SubItems(0).Text = TextBox1.Text Then lv.BackColor = Color.White lv.ForeColor = Color.Red Else lv.BackColor = Color.White lv.ForeColor = Color.Black End If Next End Sub   Private Sub TextBox1_Click(sender As System.Object, e As System.EventArgs) Handles TextBox1.Click TextBox1.SelectAll() TextBox1.Clear() End Sub   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click TextBox1.Clear() TextBox1.Paste() End Sub

---

Mon probléme : Voilà, quand j'entre le code dans textbox1.text => A5 ....etc. il m'affiche en rouge et le code qui commence pas par A5. il s'affiche pas dans listview1 et si je enlevè A5 tous ce remet comme avant.
Pouvez-vous m'aider comment écrire le code . Merci

Bonjour, pourrais tu expliquer un peu mieux le soucis que tu rencontres?
Tu devrais nous dire en détail ce que tu fais, ce que tu souhaites avoir comme résultat, ainsi que le résultat obtenu.

Bonjour, je voudrais si c'est possible quand j'entre A5..... dans textbox1.text, il y est sélectionner en rouge?

Tu veux que tous les codes qui commencent par A5 apparaissent rouge, c'est bien ça?

Citation:

---

Tu veux que tous les codes qui commencent par A5 apparaissent rouge, c'est bien ça?

---

oui, je voudrais quand j'entre A5 apparaissent en rouge.

Tu voudrais que ce soit fait à quel moment? à chaque caractère saisi?

Citation:

---

Tu voudrais que ce soit fait à quel moment? à chaque caractère saisi?

---

oui, a chaque caractère saisi.

Tu as fait le plus dur pourtant... Tu retires alors l'évènement TextBox1_TextChanged, tu mets ceci à la place:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub SAI_CODE_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles SAI_CODE.KeyUp TextBox1.Text = TextBox1.Text.Replace(" ", "") For Each lv As ListViewItem In ListView1.Items If TextBox1.Text = "" Then lv.ForeColor = Color.Black Else If Microsoft.VisualBasic.Left(lv.SubItems(0).Text, TextBox1.Text.Length) = TextBox1.Text Then lv.ForeColor = Color.Red Else lv.ForeColor = Color.Black End If End If   Next End Sub

---

Merci, j'avais pas penser left.
voici en image :
Pièce jointe 162145

j'ai une dernier question comment enlever le reste des codes(voir image). quand j'entre A5.
le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

TextBox1.Text = TextBox1.Text.Replace(" ", "") For Each lv As ListViewItem In ListView1.Items If TextBox1.Text = "" Then lv.ForeColor = Color.Black Else If Microsoft.VisualBasic.Left(lv.SubItems(0).Text, TextBox1.Text.Length) = TextBox1.Text Then lv.ForeColor = Color.Red Else lv.ForeColor = Color.Black End If End If Next End Sub

---

Au lieu de les "supprimer", tu devrais plutôt les écrire en blanc, comme ça, blanc sur blanc, personne ne pourra les voir. Après, que le champ texte est vide, tu écris en noir, ça reste envisageable?

Merci pour la réponse , ça fonctionne.