Image déplacable avec la souris... Aidez moi !

Question

Bonjour !

Voici mon problème:

J'ai des boutons avec des photos, je voudrais, quand je clique sur un bouton, avoir l'image qui suit la souris... Et ensuite, quand je clique sur la souris, ca place l'image.
Et quand on reclique sur l'image, précedement placée, on peut la redéplacer...

Sachant, que le fond (Ou les images se déplaceront) est une image... (Difficile à expliquer mais bon...)

Voila, Merci !!!

pcpunch · Answer

Slt Zx980, je suis tj surpris qu'avec tant de src et de msg , tu butte sur un truc si simple.

Ci dessous un Exmple :
un bouton :BtnDeplace
une controle image : Image1

Tu clique sur le bouton, tu va avec la souris sur l'image pour la deplacer, et ensuite tu reclick et elle ne deplace plus!!

c'est une méthode comme une autre


Dim Deplace As Boolean 'Si deplacement
Private Sub BtnDeplace_Click()
Deplace = True 'on clique sur le bouton alors on deplace lorsque la sourie est sur l image
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'deplacement de l'image par le centre
If Deplace Then Image1.Move X + Image1.Left - (Image1.Width / 2), Y + Image1.Top - (Image1.Height / 2)
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'on ne deplace plus l'image
Deplace = False
End Sub

z980x · Answer

Bah... Malheureusement ca ne marche pas...

pcpunch · Answer

Pourtant ce code fonctionne tres bien!!!!
Désoler mais a ce niveau la je peu plus t'aider..

++

marc660 · Answer

Bonjour

Ton code marche tr&#232;s bien, je te remercie, car je chercher un code aussi propre que celui-l&#224;.

@+

Image déplacable avec la souris... Aidez moi !

4 réponses

Discussions similaires