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

• 点赞
• 收藏
• 分享
• 文章举报