Не выводит кодя нажимаемых символов

[Ramauf]

При нажатии клавиши вправо, влево, вверх, вниз и энтер не работает

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

Private Sub Button1_KeyDown(KeyCode As Integer, Shift As Integer)
Button1.Caption = CStr(KeyCode)
End Sub

А все остальные работают. Что можно сделать?

[keks-n]

ЛОЛ. Дело в том, что в большинстве шрифтов этих символов просто нет.

[tyomitch]

ЛОЛ. Он-то выводит не символ, а код.

[keks-n]

Это ясно, что там scan-code, не переведённый ещё через TranslateMessage. Но дело в том, что для chr(13) показывают, обычно, квадрат. А стрелки я видел лишь в каком-то символьном шрифте.

[Ramauf]

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

[Amed]

_KeyPress

[Ramauf]

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

Private Sub Button1_KeyPress(KeyAscii As Integer)
If KeyAscii = KeyCodeConstants.vbKeyLeft Then Button1.Caption = "asda"
End Sub


Не работает.

[Amed]

Наврал я. Ни событие KeyPress, ни KeyDown для кнопки не приходят по нажатию Enter, Left, Right и других подобных.
Это связано с переходом фокуса с кнопки на соседние по нажатию Left, Right и др. (у текстбокса, например, все события работают).

Остается только сабклассить?

[tyomitch]

Но дело в том, что для chr(13) показывают, обычно, квадрат.

Где ты увидел chr?