Как выбрать одну из двух?

[HugoFlex]

Есть такой код

Код: Выделить всё

Shift = Getasynckeystate(vbKeyShift)
Ctrl = Getasynckeystate(vbKeyControl)
   
If Ctrl = 0 And (Shift And &H1) = &H1 Then
    Text1 = Text1 + " {Shift} "
End If

If Ctrl <> 0 And (Shift And &H1) = &H1 Then
        ActivateKeyboardLayout HKL_NEXT, 0
        Text1 = Text1 + " {CtrlShift} "
End If
   
If Shift = 0 And (Ctrl And &H1) = &H1 Then
    Text1 = Text1 + "{Ctrl}"
End If

If CapShf <> True Then
   ActivateKeyboardLayout HKL_NEXT, 0
   Text1 = Text1 + " {ShiftCtrl} "
End If

При одновременном нажатии кнопки Ctrl+Shift вызываются сразу два условия. Как мне сделать так, чтобы я смог выбрать одну из них но ни сразу вместе? Возможно ответ к этому простой, но мне ни что ни приходит в голуву

[Ennor]

Код: Выделить всё

If ...

ElseIf ...

End If

Правда, тогда приоритет выбора будет определяться порядком следования проверок в твоем коде.

[HugoFlex]

Такой способ мне явно не подходит. Надо чтобы проверка проводилась для двух сочетании

[Oxygen]

Я не совсем понимаю, что ты хочешь сделать, но может подойдет select case? А там уже в вариантах ставить проверку на второе условие.

[HugoFlex]

Дело в том, что я проверяю не нажал ли пользователь на клавиатуре сочетание клавиш Ctrl+Shift. А если нажал то он должен поменять раскладку. Так вот, когда я нажимаю сначала Shift, затем Ctrl все работает нормально. Но когда я нажимаю одновременно на обе клавиши одновременно то раскладка менятся сначала например на русскую а потом на английскую, т.е вызываются сразу две условия (сначала для Ctrl+Shift, потом Shift+Ctrl). А мне надо чтобы вызывалось только одно при нажатии одновремнно на эти клавиши

[GSerg]

Ой, какое извращение...
Брррр...


Ну ставь exit sub в каждом if... При этом блоки проверки двойного условия поставь раньше проверок одиночного.