Discussion :

[fredym]

Bonjour,

Je désire mettre en surbrillance l'item d'une listbox au passage de la souris sans devoir cliquer sur l'item
J'utilise le code suivant qui met toute la listebox en blanc donc pas correct!

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Userform1.ListBox1.BackColor = vbWhite
End Sub Je pense qu'il faudrait utiliser un boolean ? je n'ai pas trouvé de tuto pour m'aiguiller dans la bonne direction...

Merci de votre aide

[deedolith]

Salut,

Pour cela tu dois connaître la hauteur d'un item (10 twips il me semble), calculer sur quel item se situe la souris, et sélectionner ce dernier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Const ItemHeight As Integer = 10    '// A corriger si necessaire
    Dim ItemIndex As Long
    ItemIndex = Y / ItemHeight
 
    If (ItemIndex < ListBox1.ListCount) Then
        ListBox1.ListIndex = ItemIndex
    Else
        ListBox1.ListIndex = ListBox1.ListCount - 1
    End If
End Sub

Note: Tu ne peux pas choisir la couleur de l'item sélectionné.