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