Fleches directionnelles en vb

[Raphdu01]

Bonjour

 

Je vous explique mon problème :

Dans le cadre d'un projet au lycée je réalise un petit jeu et j'utilise un bouton qui se déplace dans mon form grâce à l'évènement Keydown et au code ASCII des touches.

Le problème est que je n'arrive pas à utiliser les touches directionnelles, ça ne marche qu'avec les lettres.

 

Voila un extrait de code :

 

Raq correspond au bouton

Form2.hj1 est un variable qui contient le code ascii de la touche que j'aurai défini avant

Les touches sont défini dans un formulaire et le mouvement du bouton se fait dans un autre formulaire.

 

        'Déplacement de la raquette vers le haut
       If e.KeyCode = Form2.hj1 Then

               Raq.Top = Raq.Top - 30

           End If

 

Je sais que le code est bien enregistré dans ma variable car je le test avec messagebox.show(e.keycode) lors de l'événement keydown et ce code est 38 pour la flèche haut.

 

Existe-t'il une solution ?

 

Merci d'avance a++

[KewlCat]

Form2.hj1 représente quoi exactement ? La valeur contenue dans la cellule ou la cellule elle-même ? (auquel cas c'est peut-être à Form2.hj1.value qu'il faut comparer ton KeyCode ...)

[Raphdu01]

Je vais te donner un peu plus de code ce sera plus clair.

 

J'ai trois formulaire Form2 (qui correspond a un menu), Options (le formulaire ou je définit les touches) et Solo (formulaire de jeu ou le bouton se déplace)

 

Sur Form2

 

Public hj1 As String 'hj1 signifie "haut joueur 1"

 

Sur Options

 

Private Sub TxtHJ1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtHJ1.KeyDown

 

'Je clique sur la touche "haut"

 

Form2.hj1 = e.KeyCode

MessageBox.Show(e.KeyCode) 'Donne 38

 

End Sub

 

Sur Solo

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Me.KeyPreview = True

 

MessageBox.Show(Form2.hj1) 'Donne 38

 

End Sub

 

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

 

'Déplacement de la raquette vers le haut

If e.KeyCode = Form2.hj1 Then

 

Raq.Top = Raq.Top - 30

 

End If

 

End Sub

 

J'espère que ce sera plus clair pour toi.

 

Form2.hj1 n'est qu'une variable, il n'y a pas de tableau, donc pas de cellules (si c'est à ça que tu pensais)

Modifié le 29 mars 2008 par Raphdu01

[KewlCat]

Oh ! OK. Désolé, je pensais que c'était un "champ de ton formulaire" ou une "cellule de ton formulaire" et pas un attribut de ton objet Form.

[Raphdu01]

Est ce que c'est possible d'utiliser les flèches directionnelles pour déplacer mon bouton alors ?

[KewlCat]

C'est une bonne question. Je ne vois pas pourquoi, si tu es capable d'en récupérer le KeyCode au même titre que pour les touches "normales", tu n'arrives pas à en faire ce que tu veux.

Il faut poser la question à des gens qui programment en VB

 

Juste un truc...

If e.KeyCode = Form2.hj1 Then

Raq.Top = Raq.Top - 30

End If

Comment VB fait-il la différence entre une affectation et un test d'égalité ? C'est l'opérateur "=" pour les deux ?

[Raphdu01]

Il faut poser la question à des gens qui programment en VB

 

Je pensais que tu en faisait partie il me semblait que tu m'avais souvent aidé dans ce domaine mais en fait il s'agit d'un autre chat ^^ . Par contre tu m'as aussi bien aidé pour beaucoup d'autre problème...

 

Comment VB fait-il la différence entre une affectation et un test d'égalité ? C'est l'opérateur "=" pour les deux ?

 

oui c'est la même chose. Je sais que par exemple pour du PHP et du C (je crois) c'est "==" pour une égalité mais je pensais que c'était plutôt eux qui étaient bizarre..