Surbrillance d un item listbox avec mousemove

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

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:

---

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é.