如果把窗體的KeyPreview屬性設為True,那么窗體將比其內的控件優先獲得鍵盤事件的激活權。比如窗體Form1和其內的文本框Text1都准備響應KeyPress事件,那么以下代碼將首先激活窗體的KeyPress事件:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox "這是窗體的KeyPress事件"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox "這是文本框的KeyPress事件"
End Sub