Simplifier mon code de recherche avec listview1

Version imprimable

1 pièce(s) jointe(s)

bonjour, j'ai trouver la solution a mon probléme. je voudrais savoir, il D’il possible de simplifier mon code de recherche?
voici mon projet :
Pièce jointe 162563

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private flagmark As Integer
    Private flagfound As Boolean = False
    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(" ", "")
        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).ForeColor = Color.Black
            Else
                If Microsoft.VisualBasic.Left(ListView1.Items(index).SubItems(0).Text, TextBox1.Text.Length) = TextBox1.Text Then
                    ListView1.Items(index).ForeColor = Color.Red
                    mark = index
                    count += 1
                Else
                    ListView1.Items(index).ForeColor = Color.Transparent
                End If
            End If
        Next
        If count = 1 Then
            If Not flagfound Then
                flagmark = mark
            End If
            flagfound = True
            str = ListView1.Items(mark).Text
            ListView1.Items.RemoveAt(mark)
            ListView1.Items.Insert(0, str)
            ListView1.Items(0).ForeColor = Color.Red
        End If
        If DirectCast(sender, TextBox).Text = String.Empty AndAlso flagfound Then
            str = ListView1.Items(0).Text
            ListView1.Items(0).Text = ListView1.Items(1).Text
            ListView1.Items.Insert(flagmark, str)
            flagfound = False
        End If
    End Sub

avez-vous une autre solution pour simplifier mon mode de recherche? Merci

oui largement
si j'ai bien compris tu écrit en rouge les élément qui commence comme ce qui est dans le texbox

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
 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Try
            Me.ListView1.BeginUpdate()
            ' remettre tout en noir (car ce qui était rouge avant ne l'est peut etre plus)
            For Each item As ListViewItem In Me.ListView1.Items
                item.ForeColor = Color.Black
            Next
 
            If Me.TextBox1.Text.Trim = "" Then Exit Sub ' aucun recherche à faire on sort
 
            For Each item As ListViewItem In Me.ListView1.Items
                If item.SubItems(0).Text.ToLower Like Me.TextBox1.Text.ToLower & "*" Then
                    item.ForeColor = Color.Red
                Else
                    item.ForeColor = Color.Transparent
                End If
 
            Next
 
        Catch ex As Exception
            'catch factultatif c'est surtout le finally qui est utile, logger l'erreur éventuellement
        Finally
            Me.ListView1.EndUpdate()
        End Try
End Sub

beginupdate et endupdate sont là pour éviter que tout soit redessiner x fois pendant qu'on modifie, c'est pour les performances
finally permet d'être sur que l'instruction sera exécutée
.tolower c'est pour éviter d'être obliger de taper A, ca ne controle pas la casse
like vérifie si la chaine ressemble à ce qu'on cherche, * remplacant entre 0 et n caractères au choix, donc like "a*" c'est tout ce qui commence par A like "*a*" c'est tout ce qui contient un a ...

après mettre en transparent c'est étrange normalement on ferait plus ca :

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
  Private _Elements As New List(Of String)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        _Elements.Add("A56601CB30510000")
        _Elements.Add("A56602CB30510000")
        _Elements.Add("A56603CB30510000")
        _Elements.Add("A56604CB30510000")
        _Elements.Add("BF2EA6A46A160000")
        _Elements.Add("A78D4166193C0000")
        _Elements.Add("59504DAA96298000")
        _Elements.Add("D424EC43B9C93000")
        Me.ListView1.Items.AddRange((From element In _Elements Select New ListViewItem(element)).ToArray)
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Try
            Me.ListView1.BeginUpdate()
            Me.ListView1.Items.Clear()
            Me.ListView1.Items.AddRange((From element In _Elements Where element.ToLower Like Me.TextBox1.Text.ToLower & "*" Select New ListViewItem(element)).ToArray)
 
        Catch ex As Exception
            'catch factultatif c'est surtout le finally qui est utile, logger l'erreur éventuellement
        Finally
            Me.ListView1.EndUpdate()
        End Try
    End Sub

c'est à dire n'afficher que ce qui est nécessaire
plusieurs avantages :
- plus pratique pour l'utilisateur (si beaucoup d'éléments avec plein de transparent au milieu c'est aberrant)
- moins de code
- une collection déportée dans une variable non graphique, en règle générale il vaut mieux éviter de balayer les données d'un controle

29/11/2014, 13h04
wallace1

@pol63 : je suis désolé de te dire ca mais il s' en fiche de tes explications ...ce qu il veut c'est simplement du code prêt à l emploi comme d'habitude...il suffit de lire la majeure partie de ses topics é___è.....

A+
29/11/2014, 14h03
Pol63

arf d'habitude je regarde qui post pourtant, et en effet je crois qu'il fait partie de ma "liste" de non réponse ou de réponse simple ^^
29/11/2014, 14h10
rv26t

Bonjour,

@Pol63
Merci quand même pour le code et l'explication détaillée. Il faut voir le coté positif, cela pourra servir à d'autres membres du forum ;)
29/11/2014, 14h50
wallace1

Citation:

Envoyé par rv26t

Bonjour,

@Pol63
Merci quand même pour le code et l'explication détaillée. Il faut voir le coté positif, cela pourra servir à d'autres membres du forum ;)

Effectivement tu as raison. :ccool:
01/12/2014, 10h50
Invité

http://www.developpez.net/forums/d14...che-listview1/
tu exposes de nouveau ton problème?

Bonjour

Si tu as le temps de jetter un coup d'oeil :?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public Class Form1
   Private flagmark As Integer
    Private flagfound As Boolean = False
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.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 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).ForeColor = Color.Black
            Else
                If Microsoft.VisualBasic.Left(ListView1.Items(index).SubItems(0).Text, TextBox1.Text.Length) = TextBox1.Text Then
                    ListView1.Items(index).ForeColor = Color.Red
                    mark = index
                    count += 1
                Else
                    ListView1.Items(index).ForeColor = Color.Transparent
                End If
            End If
        Next
        If count = 1 Then
            If Not flagfound Then
                flagmark = mark
            End If
            flagfound = True
            str = ListView1.Items(mark).Text
            ListView1.Items.RemoveAt(mark)
            ListView1.Items.Insert(0, str)
            ListView1.Items(0).ForeColor = Color.Red
        End If
        If DirectCast(sender, TextBox).Text = String.Empty AndAlso flagfound Then
            str = ListView1.Items(0).Text
            ListView1.Items(0).Text = ListView1.Items(1).Text
            ListView1.Items.Insert(flagmark, str)
            flagfound = False
        End If
    End Sub
End Class