KeyPreview не перехватывает клавиши стрелок

[Кул Хацкер]

Свойство формы KeyPreview не перехватывает клавиши стрелок(курсор). При нажатии на любые другие клавиши все нормально работает, но при нажатии на стрелки не возникают в форме события KeyPress, KeyDown.
Вместо событий, стрелки перемещают фокус по кнопкам формы. Как это отключить?

[Gloom]

KeyDown срабатывает...

[Кул Хацкер]

KeyDown срабатывает...

У меня стоит VS2005 и в VB .NET KeyDown не срабатывает совершенно точно - клавиши курсора двигают фокус по элементам формы и Enter тоже не вызывает KeyDown, а нажимает элемент с фокусом.
Можно ли вообще откючить фокус в принципе?

[Gloom]

У меня стоит VS2005 и в VB .NET KeyDown не срабатывает совершенно точно

Специально проверил на VS2005 - KeyDown работает пучком...

[Кул Хацкер]

Специально проверил на VS2005 - KeyDown работает пучком...

Создай новый проект, просто добавь на форму одну кнопку, включи КеуPreview и добавь это
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
MsgBox(e.KeyCode.ToString)
End Sub
... и ты убедишься что ни Enter ни курсор KeyDown не вызывает, а если ты удалишь кнопку с формы, то все нормально работает (VS2005 v.8.0.50727.42)

[Gloom]

Да действительно, если фокусом обладает кнопка, то нажатия спец. клавиш(помимо "стрелочных", это ещё tab и return) не обрабатываются.
Вылечить можно, если вместо стандартного класса Button, использовать свой (производный от Button), в котором переопределить метод IsInputKey...

[Maitris]

Gloom, лови KeyDown/KeyUp формы при KeyPreview = True, и делай e.Handled = True в процедуре.

[Gloom]

Gloom, лови KeyDown/KeyUp формы при KeyPreview = True, и делай e.Handled = True в процедуре.

Советую прочитать топик ещё раз...

[Maitris]

2Gloom ---
И? Человеку нужно обработать нажатие Up/Down/Left/Right самостоятельно и при этом отменить обработку события системой.. Изначально тема об этом.
Так же можно поймать нажатие Enter, например, и вручную вызвать нужный sub не давая фокуса элементу.

Private Sub Form1_KeyUp
Select Case sender.name
Case "Button1"
...
Case "Button2:
...
End Select

e.Handled = True

End Sub
И никакого фокуса В общем кому как удобно.

[Gloom]

2Gloom ---
И? Человеку нужно обработать нажатие Up/Down/Left/Right самостоятельно и при этом отменить обработку события системой.. Изначально тема об этом.
Так же можно поймать нажатие Enter, например, и вручную вызвать нужный sub не давая фокуса элементу.

Private Sub Form1_KeyUp
Select Case sender.name
Case "Button1"
...
Case "Button2:
...
End Select

e.Handled = True

End Sub
И никакого фокуса В общем кому как удобно.

ИМХО, ты нифига не понял.
Допустим у тебя на форме кнопка и текстбокс.
Если кнопка обладает фокусом, то при нажатии "стрелочных" клавиш событие KeyDown вообще не наступает - вместо этого фокус перемещается в текстбокс и событие KeyUp наступает уже в нём.
Насколько я понял, человек хочет этого избежать.

[Maitris]

Ну если кнопка уже изначально не получит фокуса, то соответственно и нет необходимости в этом..
Ведь ему же не нужно обработать конкретно Button1_KeyDown, верно? Только общий KeyDown ФОРМЫ в любой момент, eg. как shortcuts меню..