Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 252 fois - Téléchargée 48 fois
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
28 déc. 2001 à 00:05
27 déc. 2001 à 19:03
27 déc. 2001 à 19:01
Une fois que tu as atteint ta seconde, tu peux declecher ton action
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.