déplacement d'image

Question

Bonjour, je voudrais déplacer une image à l'aide de la
souris. Je n'y arrive pas.

                                     Merci

mikaeloff · Answer

veut tu que l'image bouge en suivant le curseur ou quelle se deplace quand on clique ?
 :)

cs_DARKSIDIOUS · Answer

De plus, dans quel contrôle veut tu déplacer celle-ci ? Un picture box ou simplement sur une feuille, ou autre ?

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_iPol · Answer

Apparement le sujet ne se poursuit pas.

Si vous le voulez bien, j'aimerai poser les questions à ça place.

Pour simplifier le problème:

Lorsque que je clique sur la souris dans une image et que je déplace cette souris (le bouton maintenue enfoncé), j'aimerai que l'on m'affiche de combien ma souris se déplace (Sur X et Y en pxl).

Mon problème c'est qu'il y a mouthClick ou mouthmove
Le truck est de combiner les 2.

Merci

cs_iPol · Answer

En faite c'est mousedown, mouseup, mousemove

et ces 3 là prennent en compte le X et Y...
ça risque d'êter plus simple que ce que je pensé

cs_iPol · Answer

A BA CARREMENT!!!!!!!!

C'EST TROP FACILE!!!!!!!!!!

créez une form a l'interrieur une picture nomé picture1 à l'interrieur un shape nomé shape1 :



Option Explicit
Public XDepart, YDepart As Double

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XDepart = X
YDepart = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Top = Shape1.Top + (Y - YDepart)
Shape1.Left = Shape1.Left + (X - XDepart)
End Sub

Et voila le travaille :)

Déplacement d'image

5 réponses

Discussions similaires