TABstop и UserControl

[AlexBlack]

Скажем я сделал кнопку в UserControl. У нее есть свойство Enabled.
И всё работает класно кроме TABstop-a.
Как из рантайма убрать CanGetFocus или передать фокус следующему контролу по списку?

[Sur]

А ты можешь, при таких условиях, убрать CanGetFocus у ю.контрола из IDE ?
Полюбому SendKeys "{TAB}" поможет. Главное правельно ввернуть.

[AlexBlack]

А как съимитировать нажатие "Shift-Tab". Нужно же поймать нажата ли кнопка. С хуками возиться лень...

[alibek]

SendKeys "^{TAB}"

[AlexBlack]

Ано-то понятно.... А вот как распознать нажата ли клавиша ALT....

[JohnCR]

Ано-то понятно.... А вот как распознать нажата ли клавиша ALT....

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

'пример...
Option Explicit
'на форме один таймер (timer1)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = True
    Form1.Caption = "Нажми АLT"
End Sub
Private Sub Timer1_Timer()
Dim KeyState As Integer
    KeyState = GetAsyncKeyState(vbKeyMenu)
    If KeyState Then
        MsgBox ("Нажата клавиша ALT.")
    End If
End Sub

Но скорее всего, можно обойтись без этого. При получении фокуса сразу используй SendKeys.