我使用KeyDown事件禁用Access表单上的F11键,使用此代码非常简单:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then KeyCode = 0
End Sub
F11不再对我已经实现此代码的所有表单执行任何操作,除了一个,即主输入表单。所述表单是应用程序中最复杂的,所以我认为表单中的其他代码是冲突的。但是,我尝试评论其他所有内容,而KeyDown代码仍然无法正常工作。
我还确认Key Preview设置为Yes,并成功测试了vbKeyF11
上的其他操作,例如If KeyCode = vbKeyF11 Then MsgBox "pressed F11"