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