Re : VB7 roulette souris ne fonctionne pas dans listebox et userForm
Ouahhh ! j'ai tellement cherché que là franchement jtire mon chapo ! c' est là que l' on apprécis la réponse !
mDans mon userform, ma liste contient 13 lignes et bien à chaque clic, je passe au 13 lignes suivantes.
pour ceux qui le veulent de suite :
a rajouter à la suite des codes de l' userform en question
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim v As Byte
v = 13 'pas de défilement
With ListBox1
.TopIndex = IIf(b = False, .TopIndex + v, IIf((.TopIndex - v) >= 0, .TopIndex - v, 0))
If (.TopIndex + v) > .ListCount Then
b = True
ElseIf (.TopIndex + v) <= v Then b = False
End If
End With
End Sub
et marche nickel !Merci encore.