Discussion :

[megamario]

Bonjour

Dans mon programme j'aimerai pourvoir passer en mode debug à l'appuie de plusieurs touche.

Genre Ctrl+Shift+F9

Le but et de pouvoir écrire les données hexa reçu brut et ainsi que le traitement habituel afin d'effectuer justement un débogage des données brut par rapport au traitement.

En VB.net 2008

Merci

[megamario]

J'oubliais, j'aimerais que cet évènement de détection sois général et pas seulement sur le focus en court si c'est possible.

Sinon il va falloir que je renvoie le traitement de pas mal d'objet.

[playfone]

Il faut regarder du côté de l'évenement Keypress.

Plus d'info ici

[megamario]

Il faut regarder du côté de l'évenement Keypress.

Plus d'info ici

Bonjour playfone, J'était bien sur cet évènement et j'ai trouvé comment visualisé si la touche F9 est activé.

Par contre pour le moment j'arrive pas à voir si plusieurs touche est activées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub MonTabControl1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MonTabControl1.KeyDown
        If e.KeyCode = Keys.F9 And Keys.Shift And Keys.Control Then
            Gb_Debug.Visible = True
        End If
    End Sub

Pour "e.KeyCode = Keys.F9" mais le reste fonctionne pas.

Je suis sur plusieurs dossier en même temps car l'un de mes programmes est en débogage donc je n'avance pas aussi vite que je voudrais sur ce problème, mais je cherche à la moindre possibilités, cela doit pas être bien compliqué.

Par contre je n'arrive pas à appliquer ce code sur la FORM, il ne détecte rien, aucun évènements. En utilisant le TabControl pas de souci.

[playfone]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub MonTabControl1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MonTabControl1.KeyDown
        If e.KeyCode = Keys.F9 Then
             If e.KeyCode = Keys.Shift Then
                 If e.KeyCode = Keys.Control Then
            Gb_Debug.Visible = True
        End If
End If
End If
    End Sub

Essaye comme ça peut être que...

[Pol63]

et avec un peu de chance on peut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if e.keycode = (keycode.F9 or keycode.shift or keycode.control) then 
end if

le or servant de masque binaire d'addition

[megamario]

J'ai trouvé quelque chose qui marche mais c'est pas top.

J'ai essayé vos solutions mais cela marche pas car appuyant sur les 3 touches même en même temps il me crée 3 fois l’évènement pour chaque touche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private _Key1 As Boolean = False
Private _Key2 As Boolean = False
Private _Key3 As Boolean = False
 
 
 Private Sub MonTabControl1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MonTabControl1.KeyDown
        If e.KeyCode = Keys.F9 Then
            _Key1 = True
        End If
 
        If e.KeyCode = Keys.ShiftKey Then
            _Key2 = True
        End If
        If e.KeyCode = Keys.ControlKey Then
            _Key3 = True
        End If
 
        If _Key1 And _Key2 And _Key3 Then
            Gb_Debug.Visible = True
            _Key1 = False
            _Key2 = False
            _Key3 = False
        End If
    End Sub

Déjà je m’était tromper sur les keys mais bon le problème est le même.

Si vous avez une solution plus propre!!

Ce qui faudrait c'est faire le contrôle sur F9 par exemple puis regardé si Crtl et Swift est actif.

[Sehnsucht]

Bonjour,

Déjà pour que l'évènement soit géré de manière "globale" tu peux spécifier la propriété KeyPreview du formulaire à True et ainsi avoir une gestion centralisée des évènements claviers (KeyDown, KeyPress...) en plus de la gestion individuelle de chaque contrôle

Ensuite concernant ton souci, la solution à quasiment été donnée (désolé Pol63 t'était vraiment pas loin )

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    Static refKey As Keys = Keys.F9 Or Keys.Control Or Keys.Shift
    If e.KeyData = refKey Then
        ' Ok
    Else
        ' Non ok
    End If
End Sub

Note la déclaration statique est purement optionnelle (elle permet de n'avoir à calculer cette valeur de "référence" locale qu'une seule fois)

Il existe une autre façon de faire comme ceci:

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    If e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F9 Then
        ' Ok
    Else
        ' Non ok
    End If
End Sub

Ici le point fort est l'évaluation court-circuitante des test, si Ctrl n'est pas enfoncé on ne teste même pas la suite idem pour Shift.
Après si, comme je le suppose, les propriété booléenne Control et Shift testent en interne e.KeyCode et Keys.Control (resp Keys.Shift) la 1ère solution me semble meilleure mais dans le doute (et la flemme de prendre reflector )

Cordialement !

[Pol63]

et pourtant ta solution avec la variable static est peut etre mieux ^^
avec les andalso, tu fais 2 tests de booléen et un test d'égalité sur un entier
alors qu'avec l'autre tu ne teste qu'une égalité entre 2 entiers

m'enfin c'est du chipotage car la différence de temps doit etre de l'ordre de la nanoseconde ...

[megamario]

Bonjour,

Déjà pour que l'évènement soit géré de manière "globale" tu peux spécifier la propriété KeyPreview du formulaire à True et ainsi avoir une gestion centralisée des évènements claviers (KeyDown, KeyPress...) en plus de la gestion individuelle de chaque contrôle

Ensuite concernant ton souci, la solution à quasiment été donnée (désolé Pol63 t'était vraiment pas loin )

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    Static refKey As Keys = Keys.F9 Or Keys.Control Or Keys.Shift
    If e.KeyData = refKey Then
        ' Ok
    Else
        ' Non ok
    End If
End Sub

Note la déclaration statique est purement optionnelle (elle permet de n'avoir à calculer cette valeur de "référence" locale qu'une seule fois)

Il existe une autre façon de faire comme ceci:

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    If e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F9 Then
        ' Ok
    Else
        ' Non ok
    End If
End Sub

Ici le point fort est l'évaluation court-circuitante des test, si Ctrl n'est pas enfoncé on ne teste même pas la suite idem pour Shift.
Après si, comme je le suppose, les propriété booléenne Control et Shift testent en interne e.KeyCode et Keys.Control (resp Keys.Shift) la 1ère solution me semble meilleure mais dans le doute (et la flemme de prendre reflector )

Cordialement !

Merci c'est parfait et plus propre que m'a bidouille.
Par contre seul la 2eme proposition fonctionne pour moi. Mais elle marche et me conviens.

Merci pour l'astuce du KeyPreview.