Utiliser les touches directionnelles en .net
Résolu
Alvin1614
Messages postés
115
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je suis sur une réalisation en vb.
C'est un bonhomme que l'on peut faire bouger avec les touches directionnelles.
Il y a des monstres invisibles qui au fur et à mesure apparaissent et attaquent le bonhomme en lui tirant dessus. Le problème, c'est que je n'arrive pas à le faire bouger :
Je sais que le
Merci d'avance,
Alvin1614
Je suis sur une réalisation en vb.
C'est un bonhomme que l'on peut faire bouger avec les touches directionnelles.
Il y a des monstres invisibles qui au fur et à mesure apparaissent et attaquent le bonhomme en lui tirant dessus. Le problème, c'est que je n'arrive pas à le faire bouger :
Select Case e.KeyCode
Case Keys.Down
Me.PictureBox1.Location = Location.Y -1
Case Keys.Up
Case Keys.Left
Case Keys.Right
Je sais que le
Location.Y -1ça n'existe pas, mais je ne sais pas comment faire...
Merci d'avance,
Alvin1614
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonsoir, peut-être:Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X , Me.PictureBox1.Location.Y -1)
-
Bonjour,
Comme ceci:
Option Strict On Public Class Form1 Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown Select Case e.KeyCode Case Keys.Down If Me.PictureBox1.Location.Y = Me.Height - PictureBox1.Height Then Exit Sub Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y + 1) Case Keys.Up If Me.PictureBox1.Location.Y = 0 Then Exit Sub Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y - 1) Case Keys.Left If Me.PictureBox1.Location.X = 0 Then Exit Sub Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X - 1, Me.PictureBox1.Location.Y) Case Keys.Right If Me.PictureBox1.Location.X = Me.Width - PictureBox1.Width Then Exit Sub Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X + 1, Me.PictureBox1.Location.Y) End Select End Sub End Class
Voilà
