Запретить сочетания клавиша SHIFT+ENTER
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Sant
Участник со стажем
Вступление в Клуб: 19.08.2013
|
 Пн Июл 14, 2014 12:01 Запретить сочетания клавиша SHIFT+ENTER |
 |
Полезность: Нет оценки
|
Добрый день, уважаемые форумчане!
Есть операция, кнопка "ОК" деактивированно (Enabled=False), чтобы пользователь не мог нажат, но когда пользователь нажимает на клавиши "SHIFT+ENTER" имитируется нажатия кнопки "ОК".
Как сделать так чтобы пользователь никак не мог имитировать кнопку "ОК". |
|
 |
Reddom
Участник со стажем
Вступление в Клуб: 25.01.2013
|
| Пн Июл 14, 2014 14:07 Re: Запретить сочетания клавиша SHIFT+ENTER |
|
Полезность: Нет оценки
|
| Annex4 пишет: |
9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)
где
Exit – отвечает за закрытие формы операции,
Ask – отвечает за показ диалога о сохранении изменений на форме операции.
Описание
Обработчик события может быть определён только для главной формы.
Обработчик события OnClose вызывается при закрытии формы операции по кнопкам
"Закрыть" и "Отмена".
Входные значения параметров:
Exit = True, в любом случае;
Ask = True, если на экранной форме были произведены изменения;
Ask = False, если на экранной форме не было изменений.
Выходные значения параметров:
Если Exit = False, то форма операции не будет закрыта и значение Ask не будет
учитываться;
Если Exit = True и Ask = True, то при закрытии экранной формы поднимется диалог с
вопросом: "Выйти без сохранения изменений?". В случае ответа "Да" экранная форма
закроется, иначе форма останется открытой.
Если Exit = True и Ask = False, то экранная форма будет закрыта и диалог о сохранении
изменений не поднимется.
Примечание
Обработка события OnClose возможна, начиная с 116 версии АРМа "ЦФТ – Навигатор".
Пример
Public Sub Form1_OnClose(bExit, bAsk)
bAsk = False
MsgBox "Выходные значения параметров: Exit = " & bExit & " Ask = " & bAsk
End Sub
|
|
|
|
Amper
Профи
Вступление в Клуб: 29.10.2010
|
| Пн Июл 14, 2014 14:24 Re: Запретить сочетания клавиша SHIFT+ENTER |
|
Полезность: Нет оценки
|
| Sant пишет: | Добрый день, уважаемые форумчане!
Есть операция, кнопка "ОК" деактивированно (Enabled=False), чтобы пользователь не мог нажат, но когда пользователь нажимает на клавиши "SHIFT+ENTER" имитируется нажатия кнопки "ОК".
Как сделать так чтобы пользователь никак не мог имитировать кнопку "ОК". |
У меня вот с таким кодом Shift+Enter не работает, а у Вас срабатывает?
| Код: | Public Function Main(LastControl)
If LastControl Is Nothing Then
Ok.Enabled = False
End If
Main = True
End Function |
|
|
|
Amper
Профи
Вступление в Клуб: 29.10.2010
|
| Пн Июл 14, 2014 14:25 Re: Запретить сочетания клавиша SHIFT+ENTER |
|
Полезность: Нет оценки
|
| Reddom пишет: | | Annex4 пишет: |
9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)
|
|
Это только для Cancel (Shift + Esc). |
|
|
Sant
Участник со стажем
Вступление в Клуб: 19.08.2013
|
| Пн Июл 14, 2014 16:04 Re: Запретить сочетания клавиша SHIFT+ENTER |
|
Полезность: Нет оценки
|
| Amper пишет: |
У меня вот с таким кодом Shift+Enter не работает, а у Вас срабатывает?
|
У меня тоже не срабатывает, оказывается кнопка была просто невидимая из-за этого срабатывала нажатия.
Спасибо, вопрос снят. |
|
|
Reddom
Участник со стажем
Вступление в Клуб: 25.01.2013
|
| Пн Июл 14, 2014 16:32 Re: Запретить сочетания клавиша SHIFT+ENTER |
|
Полезность: Нет оценки
|
| Amper пишет: | | Annex4 пишет: |
9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)
|
Это только для Cancel (Shift + Esc). |
Точно  Это чтобы обработать закрытие формы через крестик. С "ОК" я не понял проблемы |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
