1、VB.Net 2005下,在表單設計起代碼中加入:MyBase.KeyPreview = True
#Region " Windows 表單設計器生成的代碼 "
Public Sub New()
MyBase.New()
'在此加入下面這句話,使在視窗中任何的按鍵都只執行一個回應
MyBase.KeyPreview = True
'該調用是 Windows 表單設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調用之後添加任何初始化
End Sub
2、重載OnKeyPress
Protected Overrides Sub OnKeyPress()Sub OnKeyPress()Sub OnKeyPress()Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim key As String
key = e.KeyChar
'檢驗按鍵是否為回車鍵,如果是就把焦點附給button1,並執行Click命令
If key = Microsoft.VisualBasic.ChrW(13) Then
button1.Focus()
button1.PerformClick()
End If
End Sub |