KeyPress et une image

Bonsoir. Je pose toujours des petites questions ici à propos des choses qui ne sont jamais écrites dans les cours ou autre. En voilà donc une:

Sous forme de jeu RPG, comment faire déplacer une image via la fonction Keypress?

Code:

---

1 2 3 4 5

Private Sub Image1_Keypress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Image1.Left = Image1.Left + 120 End If End Sub

---

D'habitude, on fait cela pour les zones de textes qui possède le focus et qu'en pesant sur "Entrer", le focus change de place. Mais ici, c'est simplement pour modifier la position d'une image, vers la droite.

Code:

---

Private Sub Image1_Keypress(KeyAscii As Integer)

---

si c'est bien le contrôle Image, cette procedure Keypress n'existe pas pour ce contrôle ;)
Voire plutôt un PictureBox pour avoir la procedure KeyPress, ou bien, si tu tiens au contrôle Image,

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Load() Me.KeyPreview = True End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Image1.Left = Image1.Left + 120 End If End Sub

---

Oui d'accord, je vois. Cependant, il me vient une autre question.

Code:

---

1 2 3 4 5

Private Sub picFakir_Keypress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then picFakir.Left = picFakir.Left + 120 End If End Sub

---

Tout fonctionne... mon "picFakir" va réellement vers la droite. Cependant si j'écris:

Code:

---

1 2 3 4 5

Private Sub picFakir_Keypress(KeyAscii As Integer) If KeyAscii = vbKeyRight Then picFakir.Left = picFakir.Left + 120 End If End Sub

---

Je pese sur la flèche Droite du clavier: ça ne fonctionne pas. Pourtant, vbKeyRight est mise à disposition dans Edit:List Properties/Methods

utilise plutot keydow ou keyup , qui passent le code de la touche, alors que le keypress donne le code ascii de la lettre de la touche

C'est bon, merci.