Как остановить фокус на DataGrid

[mnzol]

На форме 1 DataGrid и 3 кнопки. Если Tab-ом проходить по контролам, то фокус на гриде останавливается через раз! Как бы от этого избавиться и в чем секрет?

[SHURUP]

Фокус останавливается всегда (если tabstop у Грида = true), но иногда совсем не на долго.
Просто иногда DataGrid ловит DataGrid1_KeyUp и воспринимает это как призыв бежать на следующий контрол.
Проверить можно таким кодом:

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

'Нужны Timer1, DataGrid1 и парочка контролов ловящих фокус (например 3 кнопки)
Private Sub DataGrid1_GotFocus()
DataGrid1.BorderStyle = dbgFixedSingle
End Sub

Private Sub DataGrid1_LostFocus()
DataGrid1.BorderStyle = dbgNoBorder
End Sub

Private Sub Form_Load()
DataGrid1.BorderStyle = dbgNoBorder
DataGrid1.TabAction = dbgControlNavigation '!! Тоже важно !!
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Caption = ActiveControl.Name
End Sub

Вариант решения проблемы: Гасить DataGrid1_KeyUp:

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

Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyTab Then KeyCode = 0
End Sub

и все ок!

[mnzol]

Действительно помогло! И всё же странная логика