je ne connait pas la solution

Question

dans une LISTVIEW, lorsque je cherche un enregistrement selon un critére de recherche dans une zone de saisie, je veut que la BARRE LUMINEUSE (barre de sélection)se pointe sur le premier enregistrement appartenant à la sélection.
donc mon probleme est comment puis-je pointer "la barre de sélection" oû je veut.

VB_MAN · Answer

Essaie ceci,

' Démarre un nouveau projet, ajoute un ListView et un CommandButton,

Propriété du ListView
Ajoute une collone

View = lvwReport
HideSelection = False
Name = ListView1

Propriété du CommandButton
Name = Command1

' Fais copier/coller
Option Explicit

Dim xItem As ListItem

Private Sub Command1_Click()

On Error Resume Next

      Set xItem = ListView1.FindItem("VB", lvwText, , lvwPartial)
      
      If xItem Is Nothing Then
            
            ' Pas trouver!
            MsgBox "Pas trouver!!!", vbInformation
      
      Else
      
            ' Trouver!!!
            xItem.Selected = True ' Le sélectionne
            xItem.EnsureVisible ' On le rend visible(Ce que tu voulais faire)
            ListView1.SetFocus ' Donne le focus au ListView
      
      End If

End Sub

Private Sub Form_Load()

      ' Ajout d'item
      Set xItem = ListView1.ListItems.Add(, , "ListView")
      Set xItem = ListView1.ListItems.Add(, , "Visual Basic")
      Set xItem = ListView1.ListItems.Add(, , "V B")
      Set xItem = ListView1.ListItems.Add(, , "VB_MAN")
      Set xItem = ListView1.ListItems.Add(, , "VAB")
      Set xItem = ListView1.ListItems.Add(, , "BV")

End Sub

' Ca c'est pas obligatoire ;)
Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

Set xItem = Nothing
Set Form1 = Nothing

End Sub

'========================================================'

Constantes:

lvwText = Recherche le texte(C'est la première collone)
lvwSubItem = Recherche dans les Sous-Item(s)
lvwTag = Recherche dans la propriété Tag

lvwWholeWord = Recherche exact
lvwPartial = Recherche une partie

T'as le choix!!!

[mailto:VB__MAN@Hotmail.com VB_MAN]

Je ne connait pas la solution

1 réponse

Discussions similaires