Access VBA教程:KeyDown事件

当窗体或控件获得焦点时,用户按下按键,此时 KeyDown事件将发生。在宏中使用SendKeys 操作或在 Visual Basic 中使用 SendKeys 语句将键击发送到窗体或控件时,KeyDown事件也将发生。

说明

注意   KeyDown事件仅适用于窗体和窗体上的控件,而不适用于报表上的控件。

若要在这些事件发生时运行宏或事件过程,请将OnKeyDown属性设置为宏的名称或 [事件过程]。

对于这两个事件,获得焦点的对象将接收到所有的键击事件。窗体只有在它没有控件或它所有可见的控件都失效时才能获得焦点。

如果将窗体的KeyPreview属性设置为 Yes,窗体将会接收到所有的键盘事件,甚至包括那些对控件发生的键盘事件。通过设置该属性值,所有键盘事件将首先在窗体上发生,然后在获得焦点的控件上发生。无论哪个控件获得焦点,都可以在窗体中对按下的特定键作出响应。例如,可以让组合键 Ctrl+X 总在窗体上执行相同的操作。

如果按住一个键不放,KeyDown 和KeyPress事件将交替重复发生(KeyDown、KeyPress、KeyDown、KeyPress 以此类推),直到键释放,然后 KeyUp事件才发生。

尽管在绝大部分键被按下时 KeyDown事件都会发生,但它通常用于识别或区别以下的情况:

当在以下情况下按键时,KeyDown事件不发生:

提示   若要查找按下键的对应ANSI 字符,请使用KeyPress事件。

在按下键或发送 ANSI 按键时 KeyDown事件发生。KeyUp事件则发生在按键或发送键所引起的任一事件之后。如果键击使焦点从一个控件移动到另一个控件,则在第一个控件上 KeyDown事件发生,而在第二个控件上 KeyPress 和 KeyUp事件发生。

有关详细信息,请参阅击键事件和鼠标单击事件的发生顺序

如果在按下或发送键后显示一个模式对话框,则 KeyDown 和 KeyPress事件将发生,但 KeyUp事件不会发生。

VBA示例

以下示例确定是否已经按下 Shift、Ctrl 或 Alt。

若要试用该示例,请将下列事件过程到添加到含有名为 KeyHandler 文本框的窗体中。


Private Sub KeyHandler_KeyDown(KeyCode As Integer, _
     Shift As Integer)
    Dim intShiftDown As Integer, intAltDown As Integer
    Dim intCtrlDown As Integer
    ' Use bit masks to determine which key was pressed.
    intShiftDown = (Shift And acShiftMask) > 0
    intAltDown = (Shift And acAltMask) > 0
    intCtrlDown = (Shift And acCtrlMask) > 0
    ' Display message telling user which key was pressed.
    If intShiftDown Then MsgBox "You pressed the SHIFT key."
    If intAltDown Then MsgBox "You pressed the ALT key."
    If intCtrlDown Then MsgBox "You pressed the CTRL key."
End Sub

上页:Access VBA教程:ItemRemoved事件 下页:Access VBA教程:KeyPress事件

Access VBA教程:KeyDown事件

Access VBA教程:KeyPress事件 Access VBA教程:KeyUp事件
Access VBA教程:Load事件 Access VBA教程:LostFocus事件
Access VBA教程:MouseDown事件 Access VBA教程:作为位掩码的固有常量
Access VBA教程:MouseMove事件 Access VBA教程:MouseUp事件
Access VBA教程:MouseWheel事件 Access VBA教程:NoData事件
Access VBA教程:NotInList事件 Access VBA教程:OnConnect事件
Access VBA教程:OnDisconnect事件 Access VBA教程:Open事件
Access VBA教程:Page事件 Access VBA教程:PivotTableChange事件
Access VBA教程:Print事件 Access VBA教程:Progress事件 (Snapshot Viewer)
Access VBA教程:Query事件 Access VBA教程:ReadyStateChange事件 (Snapshot Viewer)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号