Public Class Form2 Private Sub Button1_PreviewKeyDown(sender As Button, e As PreviewKeyDownEventArgs) Handles Button1.PreviewKeyDown Static KeyList As Keys() = {Keys.Enter, Keys.Space, Keys.H, Keys.Tab, Keys.Space, Keys.F12} If KeyList.Contains(e.KeyCode) Then sender.PerformClick() End If End Sub End Class
Private SkipDialogKey As Boolean = False Private Sub Button1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Button1.PreviewKeyDown If e.KeyCode = Keys.何某 Then SkipDialogKey = True Me.DialogResult = 任意 End If End Sub Protected Overrides Function ProcessDialogKey(keyData As Keys) As Boolean If SkipDialogKey Then Return False Else Return MyBase.ProcessDialogKey(keyData) End If End Function