フォームKeyUpイベントで右シフトキーを検出

Question

VB6のフォームで右シフトキーを離したときを検出したい。私は次のコードを持っています：

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 
    If GetKeyState(VK_RSHIFT) < 0 Then 
     MsgBox "Right Shift Released" 
    End If 
End Sub 

それ以外は動作しません。イベントが発生するまでにキーは解放され、GetKeyState API関数は0を返します。

解決策は何ですか？

Answer 1

シフトパラメータを使用するには、キーがダウンしているシフト、Ctrlキー、そしてAltキーのどのような組み合わせを伝えます。しかし、それは左と右を区別しない。そのためには、GetKeyState API関数を使用する必要があります。

右シフトキーは、同じコードで持ち歩いたときのものですが、イベントにトラップします。キーが現在停止していることを示すために、モジュールレベルのブール値を設定します。 （あなたはKeyCodeあなたはどちらかのShiftキーのために買ってあげる16、であることを確認する必要がありますので注意してください。）

を次に、Form_KeyUpイベントでは、あなたのブール値は、キーがダウンしていると言うが、負のGetKeyState返す場合それが実際にアップしていることを示す数字は、そのキーがリリースされたことを知っています。このときもフォームレベルのブール値をリセットするようにしてください。