Controle utilisateur et keyup

Résolu
Messages postés
47
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008
-
Messages postés
47
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008
-
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

5 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
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
Messages postés
47
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008

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.
Messages postés
47
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008

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.
Messages postés
47
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
21 février 2008

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