1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Public Class Form1
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
If keyData = Keys.CapsLock Then
MessageBox.Show("CapsLock")
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Control.IsKeyLocked(Keys.CapsLock) Then
Const KEYEVENTF_EXTENDEDKEY As Integer = &H1
Const KEYEVENTF_KEYUP As Integer = &H2
keybd_event(&H14, &H45, KEYEVENTF_EXTENDEDKEY, UIntPtr.Zero)
keybd_event(&H14, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, UIntPtr.Zero)
End If
End Sub
<DllImport("user32.dll")> _
Private Shared Sub keybd_event(bVk As Byte, bScan As Byte, dwFlags As UInteger, dwExtraInfo As UIntPtr)
End Sub
End Class |
Partager