button设置快捷键 问题

[yuyanping1982]

vb.net中我想按下F1键时执行button_click事件应该怎样做才能实现啊

[「已注销」]

加个键盘监听。然后把事件委托过去就OK啦。

[「已注销」]

override FORM的ProcessCmdKey方法。

[paulin]

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown


     Select Case e.KeyCode
        Case Keys.KeyCode.F1 
              Button1.PerformClick()
         End Select
    End Sub

[zy227]

结帖！！！！！

[wangfeng12345678]

Public Class Form1

    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Const WM_KEYDOWN As Integer = &H100
        Const WM_SYSKEYDOWN As Integer = &H104
        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then
            Select Case (keyData)
                Case Keys.F1
                    Call Button1_Click(Button1, EventArgs.Empty)
            End Select
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("F1")
    End Sub

End Class

[机器人]

paulin 的就OK，不过Form.KeyPreview要设为True