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
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.