Deplacer une image

Bonjour a tous,

J'ai une image dans une form, je voudrais deplacer cette derniere a l'endroit ou j'ai cliquez avec la souris, mais je veux pas quel apparaise a cettte endroit, je veux la voir ce deplacer automatiquement a ce point.


Merci

DraaFIl

Si j'ai bien compris , tu veux avoir l'effet de l'image qui dessent ...
  Je pense qu'il faut utiliser des Timer exemple :

Dans Timer 1 :

Image1.top = label2.caption
Image1.Left = label1.caption

label1.caption = label1.caption + 1
label2.caption = label2.caption + 1

car avec le For i = 1 to 100 ne va pas bien fonctionner dans un pc faible ...

  fé marcher ta servelle pour  trouver une solution a partire des timer  (sinon , c la technique que j'itulise tj !)

  si tu  trouve une autre plus simple .... tant mieux !
Technologie Reacen²

Salut,

Tiens, un exemple, avec un timer (TimerMove), une picturebox (TaPictureBox) et une autre (PicMove) dans la premiere.
Tu attribut une image via la propriété Picture de TaPictureBox et tu colle ce code :

Const MoveSpeed As Integer = 20 Dim Img As StdPicture Dim MoveX As Single, MoveY As Single Private Sub Form_Load()   TimerMove.Enabled = False   TimerMove.Interval = 1   PicMove.BorderStyle = 0   Set Img = TaPictureBox.Picture   Set TaPictureBox.Picture = Nothing   Set PicMove.Picture = Img   TaPictureBox.AutoRedraw = True   PicMove.Width = Img.Width   PicMove.Height = Img.Height End Sub Private Sub TaPictureBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   ' PicMove.Move MoveX, MoveY   MoveX = X   MoveY = Y   TaPictureBox.Cls   PicMove.Visible = True   TimerMove.Enabled = True End Sub Private Sub TimerMove_Timer()   Dim L As Integer: L = CInt(Sqr((MoveX - PicMove.Left) ^ 2 + (MoveY - PicMove.Top) ^ 2))   If L <= 20 Then     TaPictureBox.PaintPicture Img, MoveX, MoveY     PicMove.Visible = False     TimerMove.Enabled = False   Else     PicMove.Move PicMove.Left + (MoveSpeed / L) * (MoveX - PicMove.Left), _                  PicMove.Top(MoveSpeed / L) * (MoveY - PicMove.Top)   End If End Sub

(Coloration syntaxique automatique par Kenji)

__________
Kenji

Désolé, la ligne que j'ai modifié après coup, il m'a viré un "+"
PicMove.Move PicMove.Left + (MoveSpeed / L) * (MoveX - PicMove.Left), _
             PicMove.Top + (MoveSpeed / L) * (MoveY - PicMove.Top)

__________
Kenji

je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil

je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil

je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil

ok j'ai vu, ton code pour la souris


mais quand je l'oad ma form ma picture disparait et quand je clique j'ai une erreur sur cette ligne

TaPictureBox.PaintPicture Img, MoveX, MoveY

 (on peut-tu faire paraille avec une imagebox ?


Merci
DraaFil

Non, il faut forcement une picturebox.
Avec une imagebox, on ne peut pas chosir l'emplacement de l'image dans celle-ci.

__________
Kenji

ok mias pour les autre probleme si haut as-tu une idee