vb.net - Visual Basic 按键监听器 - 当按下 2 个按键时给出响应

Question

按照我之前在

提出的问题

Visual Basic Key Listener

我想知道如何编写代码，以便程序在同时按下 2 个箭头键时做出响应。换句话说，我希望程序表现得像赛车游戏。

Answer 1

为了查明是否同时按下了两个键，您需要存储已按下的键的列表，并在未按下键时将其从列表中删除。然后，您可以比较列表中的内容以设置模式，看看它是否与您正在查找的任何模式相匹配。

Dim keysPressed as New HashSet(Of Keys)

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

    'Add the pressed key into the list
    keysPressed.Add(e.KeyCode)

    If keysPressed.Contains(Keys.W) AndAlso keysPressed.Contains(Keys.A) Then
        'Add code to take action here
    End If

    If keysPressed.Contains(Keys.D) AndAlso keysPressed.Contains(Keys.A) Then
        'Add code to take action here
    End If

    'Add more code to handle actions for multiple keys being pressed
End Sub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    'Remove the pressed key from the list 
    keysPressed.Remove(e.KeyCode)
End Sub