jai chercher mais je ne trouve aucune solution....

je voudrais que l´image aiile a la position que je clique mais pas d´un coup.Faudrait qu´elle y aille
tranquillement comme pour faire son perso bouger son perso dans Diablo 2.Si vous voyez ce que je veux dire pouvez vous maidez??Merci davance.

voici le code que j´ai jusqua maintenant:

Dim xy As Long
Dim xx As Long

Private Sub Form_Click()
image1.Move xx, xy
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
xy = Y
End Sub

Fais une boucle qui déplace ton image peu à peu...

Dim xy As integer
Dim xx As integer
Dim y As integer
Dim x As integer

Private Sub Form_Click()
x=xx
y=xy
timer1.enabled=true;
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
xy = Y
End Sub

private sub timer1_timer()
tx=image1.left
ty=image1.top
if tx>x+5 then
tx=tx-5
elseif tx>x then
tx=x
elseif tx<x-5 then
tx=tx+5
elseif tx<x then
tx=x
endif

if ty>y+5 then
ty=ty-5
elseif ty>y then
ty=y
elseif ty<y-5 then
ty=ty+5
elseif ty<y then
ty=y
endif

if tx=x and ty=y then timer1.enabled=false
end sub

il te faut bien sur un controle timer dont tu mets la propriété timer sur 30 à peu près ( tu choisira).

bon, je n´est pas testé ce bout de code donc je sais pas trop comment il va agir.

SI l´image ne bouge pas, c´est normal, il faut que tu remplace partout les 5 par des 15 ( c´est la valeurs des twips per pixel)

sa bouge pas du tout

c´est correct sa marche, il manquait image1.move tx,ty. Mais pourrait tu me dire pourquoi???Comment sa marche tes twips per pixel.Merci bcp dnob700

ça marche avec5 ou avec 15 ?

les twips c´est juste l´un des trucs que je n´aime pas en VB : au lieu de compter en pixel les " distance" sur l´écran il les compte en twips.

Et un pixel vaut 15 twips. Normallement ça doit dépendre de la machine, mais en pratique j´ai jamais rencontré d´autre valeur.
Tu peut si tu veux lui dire de compter en pixel : il faut que pour tout les controle de ta feuille ( y compris la feuille elle même) tu mette la propriété scale mode sur 3-pixel.
Mais c´est pas forcement mieux.

Avec 15 sa bouge , mais pas avec 5.Merci encore

oui logique, car VB arrondi les valeurs en twips au plus proche pixel donc quand tu le déplace de 5 twips il bouge de moins d´un pixel donc il ré-arrondi la valeur en twips à la même valeur que précédemment.