Bonjour,

Dans le cadre d'une macro que je dois réaliser pour ArcGis (un logiciel de cartographie) je veux afficher une image et ensuite pouvoir la déplacer.

L'affichage ne pose pas de problème. J'ai réussi à faire mes zooms et mes déplacements par boutons (comment faire en appuyant sur les flèches ? J'ai essayé avec KeyPress sans succès mais sans trop m'y attarder non plus...). Malheureusement quand j'essaie de bouger mon image avec la souris, elle disparaît parfois. Développant en VB depuis très peu de temps, je pense que mon code doit manquer quelque chose mais je n'arrive pas à trouver dans les références quoi.

Voici mon code pour bouger l'image à la souris :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        If Button = 1 Then
            Image1.Left = Image1.Width + X
            Image1.Top = Image1.Height + Y
        End If
End Sub
Merci à vous.