Dans un Module -------------------- Sub SetToolTip(ByVal X As Single, ByVal Y As Single, ByVal ListeView As ListView) Dim ListeItem As ListItem Set ListeItem = ListeView.HitTest(X, Y) If Not ListeItem Is Nothing Then ListeView.ToolTipText = ListeItem.Text End If End Sub Sur l'évènement MouseMove de ta listView ----------------------------------------------------- Private Sub MyListeView_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 0 Then SetToolTip X, Y, MyListeView End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question