Vérifier l’état des touches majuscule et numérique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 fois

Contenu du snippet

Votre clavier ne possède pas de voyant lumineux pour vous indiquer si les touches Verrouillage Majuscule (Caps Lock en anglais), pour saisir du texte en majuscules, et Verrouillage Numérique (Verr Num ou Num Lock en anglais), pour utiliser le pavé numérique, sont activées ou pas ?

Necessaire pour entrer les mots de passe!

Voici un petit programme qui fait le job

il suffit de mettre 2 label nommés:
lblnum et lblmaj avec ce code:

Option Strict On
Public Class Form1
Const VK_NUMLOCK = &H90
Const VK_CAPITAL = &H14
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
numerique()
majuscule()
End Sub
Private Sub numerique()
Try
If GetKeyState(VK_NUMLOCK) = 1 Then
lblnum.Text = "Pavé numérique activé"
Else
lblnum.Text = "Pavé numérique désactivé"
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub majuscule()
Try
If GetKeyState(VK_CAPITAL) = 1 Then
lblmaj.Text = "Majuscules verrouillées"
Else
lblmaj.Text = "Majuscules déverrouillées"
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

Voilà c'est tout simple.

Bonne programmation

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.