Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
В работе
21 / 17 / 5
Регистрация: 13.07.2018
Сообщений: 797
1

Действие при нажатии кнопки на клавиатуре

08.10.2019, 11:46. Показов 1585. Ответов 3
Метки нет (Все метки)

Всем, добрый день
Подскажите пожалуйста как мне запретить действия при нажатии клавиш? Например, при нажатии на F1 не выводить справку.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF4
            If Shift And acAltMask > 0 Then
                KeyCode = 0
                Shift = 0
                MsgBox "Закройте окно с помощью кнопки ЗАКРЫТЬ / СОХРАНИТЬ.", vbInformation
            End If
        Case vbKeyF1
                KeyCode = 0
                Shift = 0
        Case vbKeyF2
                KeyCode = 0
                Shift = 0
        Case vbKeyF3
                KeyCode = 0
                Shift = 0
        Case vbKeyF4
                KeyCode = 0
                Shift = 0
        Case vbKeyF5
                KeyCode = 0
                Shift = 0
        Case vbKeyF6
                KeyCode = 0
                Shift = 0
        Case vbKeyF7
                KeyCode = 0
                Shift = 0
        Case vbKeyF8
                KeyCode = 0
                Shift = 0
        Case vbKeyF9
                KeyCode = 0
                Shift = 0
        Case vbKeyF10
                KeyCode = 0
                Shift = 0
        Case vbKeyF11
                KeyCode = 0
                Shift = 0
        Case vbKeyF12
                KeyCode = 0
                Shift = 0
    End Select
End Sub
Данный код не срабатывает. Вешаю на Форма-Клавиша вниз
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2019, 11:46
Ответы с готовыми решениями:

Выполнить действие при нажатии клавиши на клавиатуре
доброго времени суток. при нажатии на клавишу выполнялось какое либо действие (например при...

Действие при нажатии на клавишу на клавиатуре (без интерфейса)
Добрый вечер! Как мне сделать так, чтобы при нажатии на определенную клавишу, производились...

Действие click() при нажатии на клавиатуре Enter в опредленном div
Есть div. В нем находится инпут и кнопка. Как при нажтии на клавиатуре на Enter заставить кнопку...

Запуск при нажатии кнопки на клавиатуре
Как при нажатии, например "Shift+ALT" выполнить эту команду?...

3
Заблокирован
08.10.2019, 12:17 2
Цитата Сообщение от vb001 Посмотреть сообщение
Например, при нажатии на F1 не выводить справку.
Если на уровне всего приложения:
Можно попробовать макросом AutoKeys
https://yandex.ru/search/?text... 70526180.1
0
Модератор
Эксперт MS Access
3688 / 2116 / 521
Регистрация: 12.06.2016
Сообщений: 5,412
08.10.2019, 12:27 3
Лучший ответ Сообщение было отмечено vb001 как решение

Решение

Цитата Сообщение от vb001 Посмотреть сообщение
Данный код не срабатывает. Вешаю на Форма-Клавиша вниз
1. Задать свойству формы "Перехват нажатия клавиш" значение Да.
2. Вся эта простыня записывается в одну строчку Case vbKeyF1 To vbKeyF12:
Visual Basic
1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 Select Case KeyCode
  Case vbKeyF1 To vbKeyF12
   KeyCode = 0
 End Select
End Sub
0
В работе
21 / 17 / 5
Регистрация: 13.07.2018
Сообщений: 797
08.10.2019, 12:51  [ТС] 4
Capi, спасибо. Ошибка моя в свойстве перехват нажатия клавиш. Не установил значение ДА.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2019, 12:51

При нажатии кнопки на клавиатуре нажимать TButton
Можно ли сделать, чтобы при нажатии кнопки на клавиатуре например буква "а" нажималась кнопка...

Изменение фокуса при нажатии кнопки на клавиатуре
Добрый вечер. Форма создана с использованием QT динамически. На QButtonGroup находятся 3...

При нажатии любой кнопки на клавиатуре вылезает калькулятор
При нажатии любой кнопки на клавиатуре вылезает калькулятор. Встретил непонятный вирус. я нажимаю...

Спрятать кнопку на форме при нажатии кнопки на клавиатуре
Всем привет, есть задание создать калькулятор, и при нажатии кнопки "Ентер" должна исчезнуть одна...

Ноутбук не включается при нажатии кнопки питания на отдельной клавиатуре
раньше ноут включался и выключался через кнопку power на отдельной клаве. теперь только выключается...

Нужно чтобы при нажатии кнопки на клавиатуре,компонент двигался.
Нужно чтобы при нажатии кнопки на клавиатуре,компонент двигался.Как? Зарание спасибою


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru