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