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

最新推荐文章于 2023-04-21 19:04:42 发布

原创最新推荐文章于 2023-04-21 19:04:42 发布 · 1.5k 阅读

3 ·

CC 4.0 BY-SA版权

VB.NET 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种将键盘按键映射到按钮点击事件的方法，通过重写Form中的ProcessCmdKey方法，实现了类似遥控器的功能。示例代码展示了如何将W、A、S、D按键分别绑定到四个按钮上。

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

首先新建个窗体应用程序，在界面添加如下四个按钮：
在这里插入图片描述
我们利用重写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