Кнопку ОК связать с клавишей [Enter], кнопку Отмена – с клавишей [Escape]

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста как делается:
Кнопку ОК связать с клавишей [Enter], кнопку Отмена – с клавишей [Escape]
Спасибо

@Belthazor4 · 07.04.2011, 12:05

тебе нужно обрабатывать событие формы - нажатие клавиши. Смотреть что нажали. Если ESC или ENTER, то программно жать на кнопку (т.е. запускать соответствующую процедуру)

@Ципихович Эндрю · 07.04.2011, 12:56 **[ТС]**

что-то я не нашёл код клавиши wdKeyEnter или wdKeyOK
????

@Ципихович Эндрю · 07.04.2011, 13:25 **[ТС]**

честно сказать, не понял, я думал так:
If KeyCode = ????? Then ...... по желанию
И вот гадал какое событие, а тут с ног на голову, есть пример?

@Belthazor4 · 07.04.2011, 14:29

Сообщение от аналитика

Cancel=true

имеется в виду свойство кнопки. Если вставлять ее в VBE, то там есть окошечко properties, там свойство Cancel, поставь его на true, и при нажатии esc, автоматом нажмется кнопка

Сообщение от аналитика

Defaul=true

Аналогично, но тут другой механизм, если фокус наведен к примеру на текстбокс, то если там нажать enter нажмется кнопка

ептыть ну натыкай сам кнопки и поэкспериментируй

Добавлено через 1 минуту

Сообщение от Ципихович Эндрю

что-то я не нашёл код клавиши wdKeyEnter или wdKeyOK
????

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(только англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

Добавлено через 1 минуту

Сообщение от Belthazor4

wd

это ключи ворда, xl - ключи экселя, vb - ключи общие Visual Basic

@Ципихович Эндрю · 07.04.2011, 16:21 **[ТС]**

vbKeyReturn - Enter Return - Вернуться
ШИКАРНО. фиг додумаешся где искать
спасибо остальное буду читать, если что спрошу

@Belthazor4 · 07.04.2011, 16:59

кстати насчет события Нажатия кнопки
это событие есть

Visual Basic

1
2
3

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
End Sub

но что то оно не срабатывает на форме

получалось у меня к текстбоксу привязать
так что это не вариант для OK и Cancel
но хорошо для фильтра введенных данных в текстбокс на форме.

Добавлено через 2 минуты

Сообщение от Ципихович Эндрю

Enter Return

=) это второе название кнопки =) присмотрись на значок кнопки - там типа стрелка, которая показывает на возвращение назад=)

@Ципихович Эндрю · 07.04.2011, 20:34 **[ТС]**

разобрался, спасибо, но понял, что оно мне не пригодится, так как забыл, что у кнопки ОК свой высокий статус, а Эскейпом я почти не пользуюсь

@vorobey7486 · 29.04.2020, 16:09

properties:
cancel: true 'привязать к клавише esp
default: true 'привязка к клавише enter
(и не забудьте сначала нажать на объект,

всякое бывает)

@Ципихович Эндрю 1687 / 559 / 74 Регистрация: 10.04.2009 Сообщений: 9,143
		1
	Кнопку ОК связать с клавишей [Enter], кнопку Отмена – с клавишей [Escape] 07.04.2011, 10:59. Показов 8608. Ответов 8 Метки нет (Все метки) Подскажите, пожалуйста как делается: Кнопку ОК связать с клавишей [Enter], кнопку Отмена – с клавишей [Escape] Спасибо 0

@Belthazor4 245 / 55 / 6 Регистрация: 05.08.2010 Сообщений: 222
	07.04.2011, 12:05	2
	тебе нужно обрабатывать событие формы - нажатие клавиши. Смотреть что нажали. Если ESC или ENTER, то программно жать на кнопку (т.е. запускать соответствующую процедуру) 0

@Ципихович Эндрю 1687 / 559 / 74 Регистрация: 10.04.2009 Сообщений: 9,143
	07.04.2011, 12:56 [ТС]	3
	что-то я не нашёл код клавиши wdKeyEnter или wdKeyOK ???? 0

@Ципихович Эндрю 1687 / 559 / 74 Регистрация: 10.04.2009 Сообщений: 9,143
	07.04.2011, 13:25 [ТС]	4
	честно сказать, не понял, я думал так: If KeyCode = ????? Then ...... по желанию И вот гадал какое событие, а тут с ног на голову, есть пример? 0

@Belthazor4 245 / 55 / 6 Регистрация: 05.08.2010 Сообщений: 222
	07.04.2011, 14:29	5
	Сообщение от аналитика Cancel=true имеется в виду свойство кнопки. Если вставлять ее в VBE, то там есть окошечко properties, там свойство Cancel, поставь его на true, и при нажатии esc, автоматом нажмется кнопка Сообщение от аналитика Defaul=true Аналогично, но тут другой механизм, если фокус наведен к примеру на текстбокс, то если там нажать enter нажмется кнопка ептыть ну натыкай сам кнопки и поэкспериментируй Добавлено через 1 минуту Сообщение от Ципихович Эндрю что-то я не нашёл код клавиши wdKeyEnter или wdKeyOK ???? vbKeyF1 - От F1 ... vbKeyF12 - До F12 vbKeyA - От A ... vbKeyZ - До Z(только англиские буквы(заглавные и обычные)) vbKeyBack - BackSpace vbKeyInsert - Insert vbKeyHome - Home vbKeyPageUp - Page Up vbKeyDelete - Delete VbKeyEnd - End VbKeyPageDown - Page Down vbKeyNumlock - Num Lock vbKeyCapital - Caps Lock vbKeyEscape - Esc vbKeyReturn - Enter vbKeySpace - Пробел vbKeyShift - Shift vbKeyTab - TAB VbKeyControl - CTRL vbKeyMenu - ALT VbKeyLeft - Стрелка влево VbKeyRight - Стрелка в право VbKeyDown - Стрелка в низ VbKeyUp - Стрелка вверх Добавлено через 1 минуту Сообщение от Belthazor4 wd это ключи ворда, xl - ключи экселя, vb - ключи общие Visual Basic 0

@Ципихович Эндрю 1687 / 559 / 74 Регистрация: 10.04.2009 Сообщений: 9,143
	07.04.2011, 16:21 [ТС]	6
	vbKeyReturn - Enter Return - Вернуться ШИКАРНО. фиг додумаешся где искать спасибо остальное буду читать, если что спрошу 0

@Ципихович Эндрю 1687 / 559 / 74 Регистрация: 10.04.2009 Сообщений: 9,143
	07.04.2011, 20:34 [ТС]	8
	разобрался, спасибо, но понял, что оно мне не пригодится, так как забыл, что у кнопки ОК свой высокий статус, а Эскейпом я почти не пользуюсь 0

@vorobey7486 0 / 0 / 0 Регистрация: 29.04.2020 Сообщений: 1
	29.04.2020, 16:09	9
	properties: cancel: true 'привязать к клавише esp default: true 'привязка к клавише enter (и не забудьте сначала нажать на объект, всякое бывает) 0