Controle utilisateur et keyupRésolu

Question

Bonjour à tous, je souhaite déplacer des éléments dans un controle utilisateur à l'aide des fleches, activer des relais à l'aide des touches F1 - F8. J'ai donc mis la propriété KeyPreview à true. J'arrive à détecter les touches F1 - F8 sans problèmes mais impossible de faire fonctionner les fleches :s avez vous une idée?

Merci d'avance.

Makito

PS : code source

    Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
            Case 112
                Line8Bits((lSelect.Top - 840) / 240).SetValue 1, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(1))
            Case 113
                Line8Bits((lSelect.Top - 840) / 240).SetValue 2, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(2))
            Case 114
                Line8Bits((lSelect.Top - 840) / 240).SetValue 3, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(3))
            Case 115
                Line8Bits((lSelect.Top - 840) / 240).SetValue 4, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(4))
            Case 116
                Line8Bits((lSelect.Top - 840) / 240).SetValue 5, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(5))
            Case 117
                Line8Bits((lSelect.Top - 840) / 240).SetValue 6, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(6))
            Case 118
                Line8Bits((lSelect.Top - 840) / 240).SetValue 7, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(7))
            Case 119
                Line8Bits((lSelect.Top - 840) / 240).SetValue 8, Not (Line8Bits((lSelect.Top - 840) / 240).GetValue(8))
            Case vbKeyRight
                MsgBox "Right"
        End Select
    End Sub

PCPT · Accepted Answer

très facile à tester, supprime le contrôle de Rey pour tester ^^
il me semble que ses txtbox utilisent des sendkeys, çà peut être lié.

au pire tu peux peut-être palier en passant ton code à l'évènement KeyDown au lieu de KeyUp.
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

PCPT · Answer

salut,
le code est bon, tu dois avoir un code dans le down ou press qui annule le up.

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

cs_makito · Answer

Merci de ton attention à ma question. Pour être plus précis, dans mon controle utilisateur, j'utilise un élément de ReyXP, cela pourrait il venir de là que je n'arrive pas à détecter les flêches? J'ai aussi un Vscroll et là le problème c'est qu'il détecte mes fleches lorsque le vscroll est actif.

cs_makito · Answer

J'ai testé sans le composant, c'est la même chose :s idem pour l'événement Key_Down, j'ai donc créé un controle utilisateur bidon et ça marche, donc je vais refaire mon ocx en testant au fur et à mesure. Merci, je te recontacte si j'ai un problème.

cs_makito · Answer

Bon ben ça vient du composant de ReyXp Element. Sans ça marche, avec ça veut plus, dommage ils sont cools ses composants. Merci beaucoup pour ton intérêt et ton aide à mon problème.

cordialement

Controle utilisateur et keyup

5 réponses

Votre réponse

Discussions similaires