none
Touches de raccourci RRS feed

  • Question

  • Bonjour,

    dans mon programme, je voudrais utiliser certaines combinaisons de touches pour effectuer des fonctions. Entre autre, je désire utiliser :

    - Control + P

    - Control + T

    - Control +Q

    Mon problème est que je n'arrive pas à trouver les bonnes instructions. J'utilise la routine suivante :

    Private

    Sub Form_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

         Dim KeyCode As Short = e.KeyCode

         Dim Shift As Short = e.KeyCode \ &H10000

         Select Case KeyCode

              Case System.Windows.Forms.Keys.F5

                   'Call PrintListe()

              Case System.Windows.Forms.Keys.F6

                   'Call TracéCircuit()

         End Select

    End Sub

    Elle marche très bien pour les touches seules.

    Merci du coup de main

    dimanche 25 janvier 2015 14:15

Réponses

  • Bonjour,

    tu peux t'inspirer de cette explication : https://support2.microsoft.com/kb/839201/fr

    ou encore de cette vidéo : https://www.youtube.com/watch?v=4ArX6QmDkAA

    Il y a un lien vers le code source.

    Jacques


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci


    dimanche 25 janvier 2015 18:18
  • Merci pour les renseignements. Toutefois, les codes données dans les exemples ne marchent pas. Après essais, j'ai trouvé ceci qui fonctionne :

    Private 

    Sub Form_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

         Dim KeyCode As Short = e.KeyCode

         Dim Shift As Short = e.KeyCode \ &H10000

         Select Case KeyCode

              Case e.Control And Keys.P

                   Call PrintListe()

              Case e.Control And Keys.T

                   Call TracéCircuit()

         End Select

    End SubCordialement

    lundi 26 janvier 2015 13:17

Toutes les réponses

  • Bonjour,

    tu peux t'inspirer de cette explication : https://support2.microsoft.com/kb/839201/fr

    ou encore de cette vidéo : https://www.youtube.com/watch?v=4ArX6QmDkAA

    Il y a un lien vers le code source.

    Jacques


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci


    dimanche 25 janvier 2015 18:18
  • Merci pour les renseignements. Toutefois, les codes données dans les exemples ne marchent pas. Après essais, j'ai trouvé ceci qui fonctionne :

    Private 

    Sub Form_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

         Dim KeyCode As Short = e.KeyCode

         Dim Shift As Short = e.KeyCode \ &H10000

         Select Case KeyCode

              Case e.Control And Keys.P

                   Call PrintListe()

              Case e.Control And Keys.T

                   Call TracéCircuit()

         End Select

    End SubCordialement

    lundi 26 janvier 2015 13:17