Discussion :

[hacker59]

Bonsoir,

j'ai un message erreur quand j’efface la valeur textbox1.text et dans listview1 tous est effacer dans les deux columns.

le code de recherche :

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
34
35
36
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Text = TextBox1.Text.Replace(" ", "")
        Dim count As Integer = 0
        Dim mark As Integer
        Dim str As String
        For index As Integer = ListView1.Items.Count - 1 To 0 Step -1
            If TextBox1.Text = "" Then
                ListView1.Items(index).SubItems(1).ForeColor = Color.Red
            Else
                If Microsoft.VisualBasic.Left(ListView1.Items(index).SubItems(1).Text, TextBox1.Text.Length) = TextBox1.Text Then
                    ListView1.Items(index).SubItems(1).ForeColor = Color.Red
                    mark = index
                    count += 1
                Else
                    ListView1.Items(index).SubItems(1).ForeColor = Color.Transparent
                End If
            End If
        Next
        If count = 0 Then
            If Not flagfound Then
                flagmark = mark
            End If
            flagfound = True
            str = ListView1.Items(mark).SubItems(1).Text
            ListView1.Items.RemoveAt(mark)
            ListView1.Items.Insert(0, str)
        End If
        If DirectCast(sender, TextBox).Text = String.Empty AndAlso flagfound Then
            For i = 0 To ListView1.Items.Count - 1
                str = ListView1.Items(i).SubItems(1).Text
                ListView1.Items(i).SubItems(0).Text = ListView1.Items.Item(i).SubItems(1).Text
                ListView1.Items.Insert(flagmark, str)
                flagfound = False
            Next i
        End If
    End Sub

message d’erreur :



Pouvez-vous m'aider à corriger ce petit probléme. Merci de votre compréhension