0/5 (4 avis)
Vue 14 966 fois - Téléchargée 814 fois
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
15 juil. 2002 à 19:38
8 oct. 2001 à 18:53
Pour pouvoir lancer ton prog, il faudrait aussi un petit wav je crois.
2 mai 2001 à 23:36
18 avril 2001 à 13:21
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.