Click and go

Commenter

Contenu du snippet

C'est un p-tit code que quand tu click ben l'image s'en va la ou tu as cliké... c'Est pratique pour les jeux d'aventure...

Je sais merde j'ai utilisé LE LOOP j'aurais peut-être du le convertir pour un timer ! Mais merde existe t'il quelques choses qui diffère pas d'un ordi a l'autre comme le loop !!!? À part le timer !!!

Besoin d'un image seulement...

Source / Exemple : 


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top > Y Or Image1.Left < X And Image1.Top < Y

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top < Y Or Image1.Left < X And Image1.Top > Y

End Sub

Conclusion :


Si quelqu'un serait assez gentil pour le convertir dans un timer ben je te le recommande !!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ATH|500|)