NumLock制御

昨日のあれっ？で記載した猫が踏んでしまうNumLockキーの制御ですが、
１０キーの有無は、静的にはチェックできる情報が見つからなかったので、

仮想キーの状態 サイトの記事から、Mainキーボードと１０キーでは、同じ数字を入れてもキーボードの状態がを示す値が異なっていることが判り、それを利用して、受注画面の電話番号がMainキーボードか１０キーのどちらで入力されたかで１０キーの有無を判定することにしました。Public Sub Ten_Key()     If GetKeyState(&H60) < 0 Then'10キーから0を入力         SetINI = SetINIValue("-1", "Ten_Key", "Data", CurrentProject.Path & "\" & "A_Tougou.INI")     ElseIf GetKeyState(&H30) < 0 Then'Mainキーボードから0を入力         SetINI = SetINIValue("0", "Ten_Key", "Data", CurrentProject.Path & "\" & "A_Tougou.INI")     End If End Sub

判定結果をINIファイルに保存しています。

同様に、NumLockキーの状態を取得して、SendKeys "{NUMLOCK}", Trueで強制的に[ON」にするつもりだったのですが、何故か動きませんでした。

Microsoft Access ClubのNumLock操作を制御する方法を参考に

Private Sub NumLock_On()         If GetINIValue("Ten_Key", "Data", CurrentProject.Path & "\" & "A_Tougou.INI") = -1 Then         If (GetKeyState(VK_NUMLOCK) And 1) = 0 Then             keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0         End If     End If     End Sub

API関連の設定は、このようにしました。

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 'キーボードの状態を取得するAPI Public Const VK_NUMLOCK = &H90 Public Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long 'キーボードの状態を制御するAPI Public Const KEYEVENTF_EXTENDEDKEY = &H1

あまり、うまく撮れませんでしたが、キーボードの上を歩く、我が家のラッキー（雌、12歳）でした。