Question

Possible Duplicate:
How do I get the current state of Caps Lock in VB.NET?

I am wanting to create two functions related to key input:

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

Can someone help me with these functions…

Thanks

Answer 1

If you’re using .NET 2.0 or later, you can use the Control.IsKeyLocked method.

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