Comment faire deplacer un picture

cs_adelani Messages postés 1 Date d'inscription samedi 11 novembre 2000 Statut Membre Dernière intervention 6 avril 2005 - 6 avril 2005 à 22:35
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 7 avril 2005 à 00:16
bonjour tt le monde
j ai un jeu "tir sur une cible en deplacement" mais j arrive pa a faire deplacer l 'image entre deux point
merci d'avance

1 réponse

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
7 avril 2005 à 00:16
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim i As Integer
Dim PasX as Integer
Dim PasY as Integer

PasX=2
PasY=1
For i = 1 To 100
Picture1.Move Picture1.Left + PasX, Picture1.Top + PasY
DoEvents
Sleep 20
Next

pour bouger à la souris, il faut utiliser les évênements MouseDown, MouseMove et MouseUp

Daniel
0
Rejoignez-nous