Discussion :

[Scr4m03]

Bonjour, je bosse actuellement sur un projet en VB (avec visual studio 2005) pour mes études.

Je souhaite tout simplement utiliser les flèches directionnel pour déplacer un point.

Sous VB, j'arrive à déplacer le point en changeant sa position. Ce que je n'arrive pas à faire, c'est de déplacer le point LORSQUE j'appuie sur une de mes touches directionnel. Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim a, b
 
        'Déplacement du point rouge
        b = 1
        For a = 1 To 10000000
            Me.Point.Location = New System.Drawing.Point(120, b)
            b = b + 0.00001
        Next a

On m'a orienté vers la fonction RID KEYS et les code ASCII des touches directionnels mais cela ne m'a pas plus aidé. Avez vous une solution ? histoire de m'aider à avancer ?

Bonne journée

[cougarg]

Bonjour,

Je suis sûr que tu aurais pu trouver cela sur Internet.

Pour activer les events du clavier, il faut que tu actives le KeyPreview de ton container :
ex dans le load :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.KeyPreview = True

Ensuite, tu peux utiliser l'évènement keydown, keyPress ou KeyUp, en fonction de tes besoins :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub exemple(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Left
                'code Gauche
            Case Keys.Right
                'code Droite
            Case Keys.Down
                'code Bas
            Case Keys.Up
                'code Haut
        End Select
    End Sub