Discussion :

[jlm22]

Bonjour à tous,

J'aimerais améliorer ma recherche dans une ListView

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Recherche()
        Try
            Dim itm As ListViewItem
            itm = Me.Lv_ListeSaisieP.FindItemWithText(Rtuerie.Text)
            Lv_ListeSaisieP.Focus()
            itm.Selected = True
            itm.EnsureVisible()
        Catch NullReferenceException As Exception
            MsgBox("La recherche n'a pas abouti")
        End Try
    End Sub

Mon problème est qu'avec la méthode FindItemWithText la recherche n'est pas précise.

Par exemple voici la colonne de ma ListView :
si ma recherche est 12 et que dans ma colonne il y a

| 456 |
| 123 |
| 32 |
| 12 |

Et bien ma recherche s'arretera sur 123 et non 12.
Existe t-il une méthode qui permet de mettre le nom précis de la recherche ? si oui laquelle j'ai beau cherché je n'est trouvé que FindItemWithText

Merci d'avance

[Kropernic]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
        For Each elem As ListViewItem In lvTest.Items
            If elem.Text = tbSearch.Text Then
                lvTest.Focus()
                elem.Selected = True
                elem.EnsureVisible()
            End If
        Next

Utilise ceci dans ta sub Recherche. lvTest est le nom de mon contrôle ListView et tbSearch le nom du contrôle TextBox.

[jlm22]

La recherche s'effectue sur la première colonne de la ListView non ?

Merci beaucoup pour ton aide

[Kropernic]

Oui, ici j'ai fait la recherche sur la première colonne. Mais tu peux modifier cela facilement ;-)

[jlm22]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For i = 0 To Lv_ListeSaisieP.Items.Count - 1
            MsgBox(Lv_ListeSaisieP.Columns(1).ListView.Items.Item(i).Text)
            MsgBox(Rtu.Text)
            If Lv_ListeSaisieP.Columns(2).ListView.Items.Item(i).Text = Rtuerie.Text Then
                Lv_ListeSaisieP.Columns(2).ListView.Items.Item(i).Selected = True
                Lv_ListeSaisieP.Columns(2).ListView.Items.Item(i).EnsureVisible()
                Exit Sub
            End If
        Next i

J'ai essayé sa mais je pointe toujours sur la première colonne

[jlm22]

Okay c'est bon j'ai trouvé ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
For i = 0 To Lv_ListeSaisieP.Items.Count - 1
        MsgBox(Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text)
            MsgBox(Rtuerie.Text)
            If Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text = Rtuerie.Text Then
                Lv_ListeSaisieP.Items.Item(i).Selected = True
                Lv_ListeSaisieP.Items.Item(i).EnsureVisible()
                Exit Sub
            End If
        Next i