キーボードの状態を取得 : Access



BackHome BackTips Backメニュー

■ Access VBA 実行コード

'指定された仮想キーの状態を取得。
'状態とは、キーが押されているか、押されていないか、トグルになっているかどうか( オンとオフの 2 つがあり、キーを押すたびに入れ替わります)を表す。
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
    Dim nKey As Integer

    nKey = GetKeyState(&H90)

'数字入力ロックキーを調べ、結果をフォームタイトルに表示
    If nKey And 1 Then
        Me.Caption = "Num Lock : On"
    Else
        Me.Caption = "Num Lock : Off"
    End If

    nKey = GetKeyState(&H14)
'大文字、小文字ロックキーを調べ、結果をフォームタイトルに表示
    If nKey And 1 Then
        Me.Caption = Me.Caption & " Caps Lock : On"
    Else
        Me.Caption = Me.Caption & " Caps Lock : Off"
    End If

End Sub


BackHome BackTips Backメニュー

Copyright(C) FeedSoft