powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Клавиши F1 и F7 нужны самому
9 сообщений из 9, страница 1 из 1
Клавиши F1 и F7 нужны самому
    #40119969
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!
Есть такая фишка перехват нажатия клавиш, ставим Да, и на Кнопку вниз вешаем обработку ловли нажатия F1-F12
Всё прекрасно работает, но кнопок уже не хватает, а F1 и F7 не могу победить... например:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then ' F1 - вызов справки
    MsgBox "F1"
    ' что сюда добавить чтоб акцесс забыл, что у него есть справка ?
    ' и после MsgBox ничего не произошло
End If
End If


В этой конструкции выйдет сообщение и за ним справка, как отменить только её вызов ?
Тут на форуме есть ответ - как вместо справки акцесса подсунуть свою, но как отменить вызов совсем не нашел...
С другой стороны, для VBA экселя
Выключить вызов справки это
Код: vbnet
1.
Application.OnKey "{F1}", ""


Включить
Код: vbnet
1.
Application.OnKey "{F1}"


Для VBA акцеса это не работает или просто по другому обзывается?
Подобная проблема и с KeyCode = 118 (F7)...
Подскажите люди добрые - есть шансы на успех или нет ?
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119973
vixxa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vmag, может акс "внутри" реагирует на клавишу вверх по своему? сорри, проверить сейчас не могу, не за компом
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119983
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, ну да, файл примера забыл...
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119987
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vmag,

Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 112 Then ' F1 - вызов справки
    MsgBox "F1"
    KeyCode = 0
 End If
End Sub


или
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyF1 OR KeyCode = vbKeyF7 Then
    KeyCode = 0
 End If
End Sub
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119988
vixxa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
__Michelle,
+
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119991
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
__Michelle,

Ну что сказать?
Спасибо маловато...
Обнять, поцеловать,
Наверно нагловато...

За презент в виде двух лишних кнопок:
Респект и уважуха...
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40119992
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vmag,

Стишка хватит. )))
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40120103
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Michelle, my bell
...
Рейтинг: 0 / 0
Клавиши F1 и F7 нужны самому
    #40120464
Eugene-LS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vmag
Для VBA акцеса это не работает или просто по другому обзывается?

Попробуйте через макрос "AutoKeys"
Как назначить клавиши для макросов в Access?
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Клавиши F1 и F7 нужны самому
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]