Comment puis-je obtenir l'état actuel de Verrouillage des Majuscules dans VB.NET?

Comment puis-je savoir si oui ou non le Verrouillage des Majuscules est activé, à l'aide de VB.NET?

C'est un suivi à mon question précédente.

OriginalL'auteur Luke Girvin | 2008-09-12

  1. 13

    De contrôle.IsKeyLocked(Clés) de la Méthode de MSDN

    Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class CapsLockIndicator

    Public Shared Sub Main()
        if Control.IsKeyLocked(Keys.CapsLock) Then
            MessageBox.Show("The Caps Lock key is ON.")
        Else
            MessageBox.Show("The Caps Lock key is OFF.")
        End If
    End Sub 'Main
End Class 'CapsLockIndicator

    C# version:

    using System;
using System.Windows.Forms;

public class CapsLockIndicator
{
    public static void Main()
    {
        if (Control.IsKeyLocked(Keys.CapsLock)) {
            MessageBox.Show("The Caps Lock key is ON.");
        }
        else {
            MessageBox.Show("The Caps Lock key is OFF.");
        }
    }
}

    OriginalL'auteur rp.

  2. 2

    Je ne suis pas un expert en VB.NET si seulement PInvoke me vient à l'esprit:

    Declare Function GetKeyState Lib "user32" 
   Alias "GetKeyState" (ByValnVirtKey As Int32) As Int16

Private Const VK_CAPSLOCK = &H14

If GetKeyState(VK_CAPSLOCK) = 1 Then ...

    OriginalL'auteur aku

  3. 1

    Créer un Timer qui est fixé à 5 millisecondes et est activé.

    Ensuite, faire un label nommé label1. Après, essayez le code suivant (dans le timer gestionnaire d'événement).

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If My.Computer.Keyboard.CapsLock = True Then
        Label1.Text = "Caps Lock Enabled"
    Else
        Label1.Text = "Caps Lock Disabled"
    End If
End Sub

    OriginalL'auteur JumboUser155

  4. 0

    La solution posté par .rp fonctionne, mais est en conflit avec la Me.KeyDown gestionnaire d'événement.

    J'ai un sub qui appelle un signe en fonction lorsque la touche entrée est pressée (voir ci-dessous).

    Le My.Computer.Keyboard.CapsLock état des œuvres et n'entre pas en conflit avec Me.Keydown.

    Private Sub WindowLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

    If Keyboard.IsKeyDown(Key.Enter) Then
        Call SignIn()
    End If

End Sub

    OriginalL'auteur Thomas Bailey