j'ai 2 formulaires différents qui affiche des images. dans chacun de ces formulaire j'ai une fonction qui permet d'afficher un truc au passage du curseur sur une des images (mousemove). ces 2 function sont donc assez semblables, la première affichant une image agrandie, l'autre une liste d'éléments qui correspondent à la photo. les voici:
-----------------------------------------------------------------------------------
Function infos(Origine As String) 'permet d'afficher une liste d'éléments en fonction de la photo
Dim haut As Single, gauche As Single
Dim Requete As String, Ref As String
haut = Controls(Origine).Top
gauche = Controls(Origine).Left
Ref = DLookup("[MARQUE]", "Marques", "[Logo] = " & Chr(34) & Dir(Controls(Origine).Picture) & Chr(34))
Requete = "SELECT TOP 4 [Nom du Jeu] FROM [Liste jeux possédés] Where [Liste jeux possédés].[Editeur] Like " & Chr(34) & "*" & Ref & "*" & Chr(34) & " ORDER BY [Notation] DESC, [Nom du Jeu] ;"
Me.LstJeux.Top = (haut - 50)
Me.LstJeux.Left = (gauche - 100)
Me.LstJeux.RowSource = Requete
Me.LstJeux.Requery
Me.LstJeux.Visible = True
Pause (2)
Me.LstJeux.Visible = False
End Function
--------------------------------------------------------------------------------------------------------------
Function Zoom(Origine As String) 'permet de zoomer sur une des photos
Dim haut As Single
Dim gauche As Single
haut = Controls(Origine).Top
gauche = Controls(Origine).Left
End Function
------------------------------------------------------------------------------------------------------------------
pourtant le comportement de ces 2 function n'est pas le même. la première se relance dès que terminée même si le curseur ne bouge plus, alors que, dans le même cas, la seconde ne se déclenche qu'une fois.
sauriez vous pourquoi la 1ere se re-déclenche alors que si le curseur est immobile, l'événement mousemove ne devrait pas la lancer.
