Discussion :

[Llaur76]

Bonjour,

Etant toute jeune dans le monde du VB6.0, j'aimerais obtenir des informations à propos de l'utilisation de la listbox.

En effet, ayant une listbox dans mon formulaire, j'aimerais qu'au survole de la souris sur item de la listbox, l'infobulle se change, pour mettre la valeur de l'item.

En ce moment, mon infobulle change seulement au clic sur l'item.

Merci.

[OhMonBato]

un truc comme ça doit s'approcher de ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sur quelle ligne est on ?
Dim Ligne As Byte
 
Ligne = Y / List1.Height * 5  'Ici j'ai mis 5 car ma liste peut afficher 5 éléments simultanéments, à ajuster donc.
List1.ToolTipText = List1.List(Ligne + List1.TopIndex)
End Sub

[Llaur76]

Merci