全部显示

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 事件不会发生。

示例

以下示例确定是否已经按下 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