Discussion :

[petchy]

bonjour,
j'ai une listview ou je reçois mes données de ma base ACCESS.
comment faire à l'aide d'un textbox une recherche dans ma listview par rapport à la premiere lettre , ou
alors créer des boutons de A à Z pour faire une recherche comme un agenda.
je ne sait pas si c'est clair

merci

cordialement

[petchy]

personne ne peut m'aider.....

[ProgElecT]

Salut

Propriété du ListView ---> FindItem

Tiré de MSDN (La bible du programmeur) MSDN pour Visual Basic 6 et VBScript
Sur un Form, 1 ListView et 1 TextBox

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
Private Sub Form_Load()
Text1.Move 1920, 120, 1515, 375
Text1.TabIndex = 0: Text1.Text = ""
 
ListView1.Move 120, 120, 1635, 2355
ListView1.HideSelection = False
Dim T As Integer
'juste pour remplir le ListView
For T = 64 To 90
    ListView1.ListItems.Add T - 63, Chr(T), Chr(T) & CStr(T)
Next T
Me.Height = 3150: Me.Width = 3825
End Sub
 
Private Sub Text1_Change()
If Len(Text1.Text) >= 1 Then
  Dim itmFound As ListItem   ' Variable itmFound.
 
   Set itmFound = ListView1.FindItem(Text1.Text, 0, , lvwPartial) '
 
   ' Si aucun objet ListItem n'est trouvé, informe
   ' l'utilisateur et quitte.
   ' Sinon, fait défiler le contrôle avec la méthode
   ' EnsureVisible, et sélectionne l'objet ListItem.
   If itmFound Is Nothing Then  ' Si aucune concordance n'est trouvée,
   ' informe l'utilisateur et quitte.
      'MsgBox "Aucune concordance"
      Exit Sub
   Else
      ' Fait défiler ListView pour afficher l'objet ListItem.
      itmFound.EnsureVisible
      itmFound.Selected = True ' Sélectionne l'objet ListItem.
      ' Rend le focus au contrôle pour afficher la sélection.
      'ListView1.SetFocus
   End If
End If
End Sub