檢測是否移位/大寫鎖定是

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