Discussion :

[hacker59]

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 :


voici mon code :

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
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

[Pol63]

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

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
 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 :

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
  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

[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+

[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 ^^

[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

[wallace1]

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.

[Invité]

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

[shayw]

Bonjour

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

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
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