Ascenceur

Hello,

tu peux utiliser le message LVM_ENSUREVISIBLE comme ceci:
Option Explicit

Private Const LVM_FIRST = &H1000
Private Const LVM_ENSUREVISIBLE = (LVM_FIRST + 19)

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) _
As Long

Private Sub Form_Click()
'wParam : Index de l'item du list-view. (basé sur 0)
'fPartialOK : valeur spécifiant si l'item doit être entièrement visible.
'Si ce paramètre est TRUE (Byval 1&), aucun défilement ne se produit
'si l'item est au moins partiellement visible

'Rend visible la 15ème item.
'Elle doit être entièrement visible
SendMessage ListView1.hwnd, LVM_ENSUREVISIBLE, 14, ByVal 0&
End Sub

Private Sub Form_Load()
Dim i As Long

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Col"

For i = 1 To 30
ListView1.ListItems.Add , , "Item" & CStr(i)
Next i
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Jean-Michel" <jeneveuxpasdespam_coconuts_arobase_genial.net> a écrit
dans le message de news:%23omjqEHSEHA.916@TK2MSFTNGP12.phx.gbl

Bonjour, j'aimerai savoir comment faire bouger l'ascenceur de
défilement d'un ListView à un endroit precis !
Merci de votre aide !

Jean-Michel