Discussion :

[Invité]

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.

[Danyel]

Code :

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

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

[Invité]

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 :

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
    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.

[Danyel]

Dans ce cas, il faut creer un service à la place.

[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?

[meziantou]

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

Oui cela est faisable

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

http://www.codeguru.com/vb/gen/vb_sy...e-in-VBNET.htm