Erreur de code

[apdf1]

Bonjour,

Voila mon code, il suit le passage de la souris dans une listbox et il renvoi la valeur dans un textbox. Il y a une erreur et je ne la trouve pas ?
Le problème il décale les valeurs de une ou plusieurs ligne.

Si quelqu'un pouvait m'aider sa serais super

Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 Dim Idx As Integer: Idx = Int(Y / ListBox2.Font.Size) - 1
 If Idx > -1 And Idx < ListBox2.ListCount - 1 Then TextBox88.Value = ListBox2.List(Idx, 3)
End Sub

Merci d'avance

Cordialement

Max

 

[Fred0o]

Re : Erreur de code

bonsoir apdf1,

J'ai testé ton code et je ne vois pas trop où est le problème. Faut dire qu'avec juste un bout de code sans l'USF ni le fichier qui va avec, difficile de débugger !

Si tu veux une réponse adaptée, je te conseille de nous mettre un exemple de tons fichier.

A+

 

[Gorfael]

Re : Erreur de code

Salut apdf1 et le forum
Le survol avec la souris ne tient en compte que la distance entre le bord au gauche et la position de la souris. Pas du contenu. En admettant que tu ais une liste de 15 valeurs, avec une fenêtre de 4, si tu affiche les 4 premières ou les 4 dernières, la souris donnera toujours la même valeur si tu es au milieu de la fenêtre, alors que ça ne sera pas la même qu'elle survole.

Mais ce n'est qu'une supposition. Sans donnée précise, on ne peut qu'extrapoler. Et ça dépend de la vitesse de calcul réel de ta machine.
A+