Détecter une saisie au clavier sans focus

Version imprimable

04/05/2010, 23h01
Invité

Détecter une saisie au clavier sans focus

Voilà, je suis débutant en vb.net, et je voudrais faire une petite application qui indique par un icône dans le systray si le Caps Lock est actif ou pas.
Je tient à dire que j'ai fait des heures de recherche avant de poster ici, mais je n'ai pas trouvé de solution.

Je n'arrive pas à trouver l'évènement qui lors de l'appui sur caps lock déclencherais mon petit bout de code. J'ai bien vu keypress et keydown, mais ils ne réagissent pas comme je voudrais, car ils ont besoin du focus. Par conséquent, mon code s'exécute bien, mais dès que le focus est perdu : plus rien.

Ai-je choisi les bons évènements? Dois-je trouver le moyen de réactiver le focus, ou trouver une méthode sans focus?

Merci d'avance.

Code:

1
2
3
4
5
If My.Computer.Keyboard.CapsLock Then
    MsgBox("CAPS LOCK on")
Else
    MsgBox("CAPS LOCK off")
End If

Merci de ta réponse, mais je crois que tu as mal compris mon problème. Voilà un petit bout de ce que j'ai fait pour le moment :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Configuration(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim Statut As String
        Dim Icone As String
        If My.Computer.Keyboard.CapsLock Then
            Icone = "lock.ico"
            Statut = "actif"
            If ActiverLesSonsToolStripMenuItem.Checked Then
                My.Computer.Audio.Play("information.wav")
            End If
        Else
            Icone = "unlock.ico"
            Statut = "inactif"
        End If
        If ActiverToolStripMenuItem.Checked Then
            NotifyIcon.ShowBalloonTip(CInt("100"), "Caps Lock", "Caps Lock " + Statut, ToolTipIcon.Info)
        End If
        NotifyIcon.Icon = New System.Drawing.Icon(Icone)
    End Sub

Le problème c'est que ça ne se déclenche que quand le focus est sur mon formulaire.

05/05/2010, 15h51
Danyel

Dans ce cas, il faut creer un service à la place.
05/05/2010, 22h43
Invité

Un service windows?
Oui, pourquoi pas, mais est-ce faisable en VB.net? Et si oui, comment? Aurait tu des tutoriels ou de la documentation à ce sujet?
05/05/2010, 23h54
meziantou

Citation:

Oui, pourquoi pas, mais est-ce faisable en VB.net?

Oui cela est faisable

Citation:

Aurait tu des tutoriels ou de la documentation à ce sujet?

http://www.codeguru.com/vb/gen/vb_sy...e-in-VBNET.htm
06/05/2010, 10h48
Invité

Merci beaucoup pour votre aide.
Je pense que je vais avoir un peu de lecture moi :P