pb keydown qui ne se déclenche pas

Question

hello, j'ai un petit souci concernant le keydown, qui ne se déclenche pas lors de l'appui sur les touches (ds mon cas les flèches directionnelles). Voici mon code : Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'selectionne le deplacement par la touche appuyée Select Case KeyCode 'descendre Case 40: descendre_click 'gauche Case 37: gauche_click 'monter Case 38: monter_click 'droite Case 39: droite_click end select end sub Private Sub monter_click() If soucoupe.Top > lblfond.Top Then soucoupe.Top = soucoupe.Top - 150 End If End Sub Private Sub descendre_click() If soucoupe.Top < lblfond.Top Then soucoupe.Top = soucoupe.Top + 150 End If End Sub Private Sub gauche_click() If soucoupe.Left > lblfond.Left Then soucoupe.Left = soucoupe.Left - 150 End If End Sub Private Sub droite_click() If soucoupe.Left < lblfond.Left Then soucoupe.Left = soucoupe.Left + 150 End If End Sub J'ai beau regarder, pas moyen d etrouver pourquoi l'évènement ne se déclenche même pas sur l'appui d'une touche... Une idée? merci d'avance

Gobillot · Answer

as tu mis KeyPreview &#224; True ?

Daniel

acorna · Answer

oui, c'est fait. Mais rien &#224; faire, &#231;a ne se d&#233;clenche pas...

Gobillot · Answer

t'as un Bouton sur ta forme et seulement des Labels c'est &#231;a ?

Daniel

acorna · Answer

en fait, je fait le keydown sur le formulaire directement, aucun bouton. Par contre, jai un label derriere l'image que j'essaie de bouger sur keydown. Ca peut changer quelque chose?

Gobillot · Answer

oui s'il y a un bouton qui capte le focus on ne d&#233;tecte plus les touches.
pourquoi le Label est derri&#232;re et pas devant ?
sinon &#224; part &#231;a il reste plus que les tests: descendre et droite:

Private Sub descendre_click()
    If (soucoupe.Top + soucoupe.Height) < (lblfond.Top + lblfond.Height) Then
            soucoupe.Top = soucoupe.Top + 150
            End If
End Sub

Private Sub droite_click()
        If (soucoupe.Left + soucoupe.Width) < (lblfond.Left + lblfond.Width) Then
            soucoupe.Left = soucoupe.Left + 150
        End If
End Sub

Daniel

acorna · Answer

J'ai tent&#233; en enlevant les labels, mais rien. En ce qui concerne le
code que vous m'avez fourni, je ne peux pas le tester car rien ne se
passe quand j'appuie sur une touche, le keydown ne declenche pas. Par
contre, en cr&#233;ant des boutons droite et descendre, les &#233;v&#232;nements click
se produisent bien , et l'image bouge. Je ne vois vraiment pas ce qui
coince pour que l'appui d'une touche ne soit m&#234;me pas detect&#233;...

Gobillot · Answer

pas compris.
justement en cr&#233;ant des boutons &#231;a devrait plus marcher. on voit bien qu'avec les touches fl&#232;ches le focus passe d'un bouton &#224; l'autre et ne sont plus d&#233;tect&#233;es par la Forme &#224; moins de cr&#233;er un TextBox pour pieger le Focus mais s'il y a pas de boutons il y a pas de raison que &#231;a marche pas.
en fait monter_click, descendre_click, droite_click, droite_click ne sont pas des &#233;v&#234;nements mais seulement des Sub, faudait enlever le _click derri&#232;re et les appeler simplement monter, descendre, droite et gauche, sinon &#231;a pr&#234;te &#224; confusion.

Pb keydown qui ne se déclenche pas

7 réponses

Discussions similaires