Как отследить Enter и Escape???

[zusicks438]

Делаю через KeyPress - не получается:

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

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Call Infile
ElseIf KeyAscii = 10 Then
Call LineEnt
End If
End Sub


Что не так-то?

[ANDLL]

Через keydown И keyup

[alibek]

А KeyUp зачем?

[Selektor]

Поставь KeyPreview = True форме в которой происходит событие, и обработчик формы будет ловить событие независимо от того в каком контроле оно произошло (в пределах формы).

[zusicks438]

Это замечательно, но где взять клавиатурные коды VB? В Google не нашел. Или хотя бы дайте коды Enter'a, Shift'a u Escape'a.

[arvitaly]

http://msdn.microsoft.com/en-us/library ... 80%29.aspx

[Gogic]

GetAsyncKeyState тебе в помощь.

Для клавиатурных кодов есть мегапрограмма keyinfo.

[Денис]

Та даже просто делать так:

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

sub KeyUp(KeyCode)
    msgbox (keycode)
end sub


А потом нажимать нужные клавиши, выписывать коды и создавать свои константы.

[Хакер]

А зачем их создавать, когда в VB уже есть свои?

[Денис]

А зачем их создавать, когда в VB уже есть свои?

Может мне так удобней? Личное ИМХО, так сказать. Кроме того, в vb врядли есть константы для всех вариаций с Alt, Ctrl и Shift.

[Хакер]

Глупость.

Alt, Ctrl и Shift это экст-коды, их вариации обеспечиваются сравнением аргумента Shift с Or-вариацией констант vbShiftMask, vbCtrlMask, vbAltMask.

[Денис]

Глупость.

Да, я уже понял
Мне вчера аж интересно стало и я наваял контрол для ввода сочетаний клавиш. По мере ваяния я понял.