Bonjour,=20
Je voudrais savoir comment g=E9rer l'evenement scroll d'une=20
liste, mon probl=E8me est de savoir comment g=E9rer=20
diff=E9rement si je descends dans la ou si je monte afin=20
d'alimenter une variable dans cette evenement (+1 si je=20
descends dans la liste -1 si je monte)
D'avance merci
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
François Picalausa
"lucio" a écrit dans le message de news:070f01c3bd76$471eb050$
Bonjour, Je voudrais savoir comment gérer l'evenement scroll d'une liste, mon problème est de savoir comment gérer différement si je descends dans la ou si je monte afin d'alimenter une variable dans cette evenement (+1 si je descends dans la liste -1 si je monte) D'avance merci
Bonjour/soir,
Essaye ceci: 'Sur un form ' une listbox, list1 ' un label, label1 Option Explicit
Private OldTopIndex As Integer
Private Sub Form_Load() Dim i As Long
For i = 0 To 255 List1.AddItem "Item" & CStr(i) Next i
OldTopIndex = List1.TopIndex End Sub
Private Sub List1_Scroll() If OldTopIndex > List1.TopIndex Then Label1.Caption = "Ne montez pas si vite!" Else Label1.Caption = "En pleine descente!" End If OldTopIndex = List1.TopIndex End Sub
"lucio" <lucio@wanadoo.fr> a écrit dans le message de
news:070f01c3bd76$471eb050$a101280a@phx.gbl
Bonjour,
Je voudrais savoir comment gérer l'evenement scroll d'une
liste, mon problème est de savoir comment gérer
différement si je descends dans la ou si je monte afin
d'alimenter une variable dans cette evenement (+1 si je
descends dans la liste -1 si je monte)
D'avance merci
Bonjour/soir,
Essaye ceci:
'Sur un form
' une listbox, list1
' un label, label1
Option Explicit
Private OldTopIndex As Integer
Private Sub Form_Load()
Dim i As Long
For i = 0 To 255
List1.AddItem "Item" & CStr(i)
Next i
OldTopIndex = List1.TopIndex
End Sub
Private Sub List1_Scroll()
If OldTopIndex > List1.TopIndex Then
Label1.Caption = "Ne montez pas si vite!"
Else
Label1.Caption = "En pleine descente!"
End If
OldTopIndex = List1.TopIndex
End Sub
"lucio" a écrit dans le message de news:070f01c3bd76$471eb050$
Bonjour, Je voudrais savoir comment gérer l'evenement scroll d'une liste, mon problème est de savoir comment gérer différement si je descends dans la ou si je monte afin d'alimenter une variable dans cette evenement (+1 si je descends dans la liste -1 si je monte) D'avance merci
Bonjour/soir,
Essaye ceci: 'Sur un form ' une listbox, list1 ' un label, label1 Option Explicit
Private OldTopIndex As Integer
Private Sub Form_Load() Dim i As Long
For i = 0 To 255 List1.AddItem "Item" & CStr(i) Next i
OldTopIndex = List1.TopIndex End Sub
Private Sub List1_Scroll() If OldTopIndex > List1.TopIndex Then Label1.Caption = "Ne montez pas si vite!" Else Label1.Caption = "En pleine descente!" End If OldTopIndex = List1.TopIndex End Sub
