VB.NET获取窗体按键并绑定到Button事件

今天有朋友问到如何把按键响应到按钮事件，做成类似遥控器的形式。简单的写了个小程序，顺便分享出来：

首先新建个窗体应用程序，在界面添加如下四个按钮：

我们利用重写Form中的ProcessCmdKey方法来获取按键值，从而绑定到按钮事件：

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        Select Case keyData
            Case Keys.W
                Btn_W_Click(Nothing, Nothing)
                Return True
            Case Keys.S
                Btn_S_Click(Nothing, Nothing)
                Return True
            Case Keys.A
                Btn_A_Click(Nothing, Nothing)
                Return True
            Case Keys.D
                Btn_D_Click(Nothing, Nothing)
                Return True
            Case Else
                Return MyBase.ProcessCmdKey(msg, keyData)   '其他键按默认处理
        End Select
    End Function

    Private Sub Btn_W_Click(sender As Object, e As EventArgs) Handles Btn_W.Click
        MsgBox("W")
    End Sub

    Private Sub Btn_A_Click(sender As Object, e As EventArgs) Handles Btn_A.Click
        MsgBox("A")
    End Sub

    Private Sub Btn_S_Click(sender As Object, e As EventArgs) Handles Btn_S.Click
        MsgBox("S")
    End Sub

    Private Sub Btn_D_Click(sender As Object, e As EventArgs) Handles Btn_D.Click
        MsgBox("D")
    End Sub