Default Key

[Samovar]

Если на форме кнопку сделать Default=True то при нажатии Enter она сработает.
Как можно сделать так, чтобы кнопка срабатывала при нажатии Ctrl+S?
А можно ли перехватить нажатие клавиши, пред тем как оно доберется до ActiveForm или ее контролов без API?

[A.A.Z.]

Насчет первого - поставь у формы KeyPreview = True и обрабатывай событие Form_KeyDown; параметр KeyCode показывает номер клавиши, параметр Shift показывает номер нажатых Shift, Control, Alt. Константы клавиш начинаются с "vbKey*", например, vbKeyS; Shift и т.п. определяются так:
Bin Dec Name
000 - 0 - <none>
001 - 1 - Shift
010 - 2 - Ctrl
011 - 3 - Ctrl + Shift
100 - 4 - Alt
101 - 5 - Alt + Shift
110 - 6 - Alt + Ctrl
111 - 7 - Alt + Ctrl + Shift

[A.A.Z.]

А вообще, можно сделать так:

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

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox Shift & " " & KeyCode
End Sub

[A.A.Z.]

Да, чтобы активировать нажатие кнопки, надо либо вызывать Command1_Click, либо Command1.Value = True

[Samovar]

Как раз то что нужно - спасибо!