检测换档/大写锁定是否打开

Question

  

可能重复：
  How do I get the current state of Caps Lock in VB.NET?

我想创建两个与键输入相关的功能：

Dim capsLock As Boolean = GetCapsLockState() 'imaginary function
Dim shiftKey As Boolean = GetShiftKeyState() 'imaginary function

有人可以帮助我完成这些功能......

由于

Answer 1

如果您使用的是.NET 2.0或更高版本，则可以使用Control.IsKeyLocked方法。

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