Bonjour, voici en image mon projet :
quand je recherche le code dans listview1 ça sélectionne en rouge :
voici mon code :
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Pouvez-vous m'aider comment écrire le code . Merci
Partager