Deplacer image avec les fleche [VB.NET]

Besoin d'aide.

Sujet résolu

Anonyme

27 août 2011 à 0:28:02

Bonjour

Je recherche un code capable de bouger une image a droite et a gauche en utilisant les fleches droites et gauches

Je ne sais pas si cela est possible,

Cordialement,

Mazaki

MysteryDash

27 août 2011 à 21:22:15

Tu peux faire un hook sur les touches et vérifier si c'est une flèche qui a été préssée puis tu bouge ton image avec location.

MysteryDash / 100 MPM / Développeur Freelance C#.NET / osu! / PS4 Offline Remote Play

Pinsa

27 août 2011 à 21:37:31

Si tu parle des flèches du clavier, ce code minimal fera bouger de droite à gauche une PictureBox dans une Windows Form.

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

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X - 1, Me.PictureBox1.Location.Y)

            Case Keys.Right

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X + 1, Me.PictureBox1.Location.Y)

        End Select
    End Sub

Anonyme

27 août 2011 à 22:09:49

OMAGAD ! Merci beaucoup tu me SAUVE la vie

stephan1932

28 août 2011 à 1:22:10

Citation : gstra

Si tu parle des flèches du clavier, ce code minimal fera bouger de droite à gauche une PictureBox dans une Windows Form.

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

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X - 1, Me.PictureBox1.Location.Y)

            Case Keys.Right

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X + 1, Me.PictureBox1.Location.Y)

        End Select
    End Sub

waou je suis étonne, j'avais aussi essayer le même code avant que tu ne poste, avec l’évènement de la fenêtre keydown mais rien de se passait, comme si la fenêtre n'avais pas le focus.
Fin bref bien jouer

-G-

30 août 2011 à 9:59:36

Moi je fais ce code mais rien ne bouge pourquoi ?
Et quel est le code pour faire pareil mais avec une lettre ?

stephan1932

30 août 2011 à 12:57:44

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.Lettre 'La lettre qui te permettra de deplacer l'objet a gauche

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X - 1, Me.PictureBox1.Location.Y)

            Case Keys.Lettre 'La lettre qui te permettra de deplacer l'objet a droite

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X + 1, Me.PictureBox1.Location.Y)

        End Select
    End Sub

exemple :

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

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X - 1, Me.PictureBox1.Location.Y)

            Case Keys.D

                Me.PictureBox1.Location = New System.Drawing.Point(Me.PictureBox1.Location.X + 1, Me.PictureBox1.Location.Y)

        End Select
    End Sub