roulette souris dans liste USF

[gg13]

Bonjour à tous.
Je ne trouve pas dans les propriétés d'une listbox comment valider
l'utilisation de la roulette de la souris pour un défilement plus rapide.
Quelqu'un aurait-il l'information ?
Merci
gg13

 

[Compte Supprimé 979]

Re : roulette souris dans liste USF

Salut Gg13,

Tout simplement parce que ça n'existe pas 😉

A+

 

[gg13]

Re : roulette souris dans liste USF

BrunoM45
Merci de l'info mais c'est domage car quand la liste est longue ce serait bien utile.
Bonsoir à tous.
gg13

 

[Compte Supprimé 979]

Re : roulette souris dans liste USF

Re,

Tu as les touches Début, Fin et Page Down, Page up 🙂

A+

 

[Pierrot93]

Re : roulette souris dans liste USF

Bonjour gg, Bruno🙂

un essai avec l'événement "mousedown" de la listbox, le pas du défilement est défini dans la variable "v" :

Option Explicit
Dim b As Boolean
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 = 10 '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

bonne journée
@+