1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub curseur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles curseur.Click
'Demarage de la partie
'Quand la souris bouge sur le curseur et sur le panel on doit modifier sa position
'On ajoute donc les Handlers
AddHandler curseur.MouseMove, AddressOf deplacer_curseur
AddHandler pnlJeux.MouseMove, AddressOf deplacer_curseur
'Si la souris sort du panel (zone de jeux), on met le jeu en pause
AddHandler Me.MouseMove, AddressOf Pause
'On lance le timer qui gère le mouvement des obstacles
timeMouvement.Enabled = True
'On lance
End Sub
Private Sub Pause()
'On met le jeu en arretant le timer
timeMouvement.Enabled = False
'On enlève les Handlers pour que le curseur ne puisse plus bouger
RemoveHandler pnlJeux.MouseMove, AddressOf deplacer_curseur
RemoveHandler curseur.MouseMove, AddressOf deplacer_curseur
Label1.Text = "Sortie"
End Sub |
Partager