Обнаружение правой клавиши Shift в событии 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 

За исключением, он не работает. К моменту запуска события ключ был освобожден, и функция API GetKeyState возвращает 0.

Какое решение?

Answer 1

Параметр Сдвиг говорит вам, что сочетание сдвига, Ctrl и Alt клавиши вниз. Однако он не проводит различия между левым и правым. Для этого вам необходимо использовать функцию API GetKeyState.

Ловушка правая сменная клавиша, когда она идет с похожим кодом, что у вас есть, но в событии . Установите логический уровень на уровне модуля, чтобы указать, что ключ теперь выключен. (Обратите внимание, что вы должны проверить, что KeyCode 16, который вы получите либо для смены ключа.)

Тогда, в Form_KeyUp случае, если логическое значение говорит, что ключ вниз, но GetKeyState возвращает отрицательное номер, указывающий, что он на самом деле вверх, вы знаете, что ключ был выпущен. Убедитесь, что вы также сбросили булевский уровень уровня.