.NET 按键按下事件 [按键组合不起作用]

Question

我是编程新手。目前有按键组合问题。

[LWin + L]

Private Sub unit_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If (e.KeyCode = Keys.L AndAlso e.KeyCode = Keys.LWin) Then
        MsgBox("Pressed!")
    End If
End Sub

消息框不显示。尝试过 KeyUp、PreviewKeyDown 但无济于事。

但是，它可以与其他组合一起使用，例如 [Ctrl + L]

If (e.KeyCode = Keys.L AndAlso e.Modifiers = Keys.Control) Then

在这里卡了半天。希望高手能提供解决方案。

谢谢！

Answer 1

由于Keys.LWin 在技术上不是修饰键，因此您必须使用变通方法来解决此问题。

这是一个相当简单的：

• 每次按下某个键时，将其添加到表格中。

• 检查我们的表格中是否存在所需的组合键，如果存在，则在按下它时执行您想要执行的任何操作。

• 释放键后，将其从表中移除。

这样的事情应该可以工作：

'This is our table containing all currently pressed keys.
Private KeysPressed As New HashSet(Of Keys)

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    'Add the currently pressed key to the table.
    KeysPressed.Add(e.KeyCode)

    'Determine if the combination LWin + L exists in our table (thus, if it is currently pressed)
    If KeysPressed.Contains(Keys.LWin) AndAlso KeysPressed.Contains(Keys.L) Then
        'Clear all pressed keys to avoid possible issues.
        KeysPressed.Clear()

        'Do your stuff here...
    End If
End Sub

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
    'Remove the released key from the table.
    KeysPressed.Remove(e.KeyCode)
End Sub

您可能应该使用 LWin + L 以外的其他组合键，因为 Windows 似乎不会将其发送到您的应用程序，因为它也是锁定的快捷方式你的电脑。