1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Jeux
  5. Faire bouger une image avec des fleches

Faire bouger une image avec des fleches

0/5 (4 avis)

Vue 14 966 fois - Téléchargée 814 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
cs_scorpion
Messages postés
5
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
21 février 2007
15 juil. 2002 à 19:38
Mettre la ligne : sndPlaySound App.Path & "" & "l.wav", 1 en commentaire et ça va marcher (pas de music)
ph91
8 oct. 2001 à 18:53
Il manque un module .bas dans ton zip.
Pour pouvoir lancer ton prog, il faudrait aussi un petit wav je crois.
Viacman
2 mai 2001 à 23:36
AVec Visual Basic 4.0 ton code ne marche pas
DjDrac
18 avril 2001 à 13:21
mais ton satane code ne merche pas??:-P
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)