Faire bouger une image avec des fleches

Soyez le premier à donner votre avis sur cette source.

Vue 14 492 fois - Téléchargée 780 fois

Télécharger le projet
Commenter

Description

inserer 3 image(p1,p2 et p3) et 1 timer(T1)

Source / Exemple : 


Private Sub P2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
P1.Left = P1.Left - 200
T1.Enabled = False
P3.Visible = False
End If

If KeyCode = 38 Then
P1.Top = P1.Top - 200
T1.Enabled = False
P3.Visible = False
End If

If KeyCode = 39 Then
P1.Left = P1.Left + 200
T1.Enabled = False
P3.Visible = False
End If

If KeyCode = 40 Then
P1.Top = P1.Top + 200
T1.Enabled = False
P3.Visible = False
End If

If P1.Top <= P2.Top Then
P1.Top = P2.Height - 1001
End If

If P1.Top >= P2.Height - 1000 Then
P1.Top = P2.Top
End If

If P1.Left <= P2.Left Then
P1.Left = P2.Left + P2.Width - 1001
End If

If P1.Left >= P2.Width - 1000 Then
P1.Left = P2.Left
End If

P3.Left = P1.Left + 500
P3.Top = P1.Top + 800

If KeyCode = vbKeySpace Then
P3.Visible = True
T1.Enabled = True
sndPlaySound App.Path & "\" & "l.wav", 1
End If

End Sub

Private Sub T1_Timer()
P3.Top = P3.Top + 100
End Sub

Conclusion :


ce code fait bouger une image et lorsque l'on appui sur espace un missile et tire
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de DjDrac
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 (Nic.C)