J'ai un affichage complet de mes enregistrements dans une ListView.
Mon souhait :
En tapant une valeur dans une texbox et en validant par un bouton OK :
1 - mettre la ligne de mon ListView dont la valeur de la première colonne
correspond à la valeur tapée dans la TextBox en surbrillance
2 - Effectuer un scroll de la liste afin d'avoir dans la partie visible
l'élément trouvé.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour RENAUD Eric, RENAUD Eric a écrit :
Bonjour,
J'ai un affichage complet de mes enregistrements dans une ListView. Mon souhait : En tapant une valeur dans une texbox et en validant par un bouton OK :
1 - mettre la ligne de mon ListView dont la valeur de la première colonne correspond à la valeur tapée dans la TextBox en surbrillance 2 - Effectuer un scroll de la liste afin d'avoir dans la partie visible l'élément trouvé.
Regarde du côté des méthodes FindItem et EnsureVisible :
Private Sub Command1_Click() Dim itm As ListItem Dim deb As Integer
deb = 1 Set itm = Me.ListView1.FindItem_ (Me.Text1.Text, lvwText, deb, lvwPartial) itm.Selected = True itm.EnsureVisible End Sub
-- Cordialement,
Jacques.
Bonjour RENAUD Eric,
RENAUD Eric a écrit :
Bonjour,
J'ai un affichage complet de mes enregistrements dans une ListView.
Mon souhait :
En tapant une valeur dans une texbox et en validant par un bouton OK :
1 - mettre la ligne de mon ListView dont la valeur de la première colonne
correspond à la valeur tapée dans la TextBox en surbrillance
2 - Effectuer un scroll de la liste afin d'avoir dans la partie visible
l'élément trouvé.
Regarde du côté des méthodes FindItem et EnsureVisible :
Private Sub Command1_Click()
Dim itm As ListItem
Dim deb As Integer
deb = 1
Set itm = Me.ListView1.FindItem_
(Me.Text1.Text, lvwText, deb, lvwPartial)
itm.Selected = True
itm.EnsureVisible
End Sub
J'ai un affichage complet de mes enregistrements dans une ListView. Mon souhait : En tapant une valeur dans une texbox et en validant par un bouton OK :
1 - mettre la ligne de mon ListView dont la valeur de la première colonne correspond à la valeur tapée dans la TextBox en surbrillance 2 - Effectuer un scroll de la liste afin d'avoir dans la partie visible l'élément trouvé.
Regarde du côté des méthodes FindItem et EnsureVisible :
Private Sub Command1_Click() Dim itm As ListItem Dim deb As Integer
deb = 1 Set itm = Me.ListView1.FindItem_ (Me.Text1.Text, lvwText, deb, lvwPartial) itm.Selected = True itm.EnsureVisible End Sub
