Access : Shiftキー、Ctrlキー、Altキーが離されたことを取得

Access VBAでキーが離されたことを調べるには、KeyUpイベントで行います。

調査方法は、キーが押された場合(KeyDownイベント)と同様です。
ShiftキーはacShiftMaskとの論理積、CtrlキーはacCtrlMaskとの論理積、AltキーはacAltMaskとの論理積で調べます。

キーボードイベントは下記の順で発生します。
KeyDown → KeyPress → KeyUp


BackHome BackTips Backメニュー

■ サンプルソフト実行画面

・ Ctrlキーを開放した場合
キー操作サンプルソフト

・ Shiftキーを開放した場合
キー押下調査フォーム

・ Altを開放した場合
ALTキー開放イベントソフト

■ Access VBA 実行コード

Option Compare Database

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    'Shiftキーが離されたかどうか
    If (Shift And acShiftMask) > 0 Then
        tkey = tkey & "[Shift]"
    End If
    'Ctrlキーが離されたかどうか
    If (Shift And acCtrlMask) > 0 Then
        tkey = tkey & "[Ctrl]"
    End If
    'Altキーが離されたかどうか
    If (Shift And acAltMask) > 0 Then
        tkey = tkey & "[Alt]"
    End If
    ラベル0.Caption = tkey

End Sub

BackHome BackTips Backメニュー

Copyright(C) FeedSoft