для того чтобы включить NumLock использую следующий код, но мне надо сделать чтобы не просто циклично включалась - выключалась NumLock , а включалась только при выключенном состоянии.

наверно можно сделать проще :)

но опять же нужна проверка на уже включенный "{NUMLOCK}" чтобы его не выключал

vmag, спасибо, но всё равно хотелось бы понять как работать с NumLock через VBA. Почему код который указан в первом сообщении просто циклично включает-выключает NumLock, а не только включает.

vmag_Единственное, сначала у меня было состояние, что наоборот 0 - включен, 1 - выключен, но я подозреваю, что это были последствия проверки вашего примера... ибо после перезагрузки компа стало по человечески (0- выключено, 1 - включено)... :-)) да и у меня тоже это было, поэтому сам, со своим минимумом знаний понять не мог почему так )
ваш пример - то что нужно!

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

vmag_,
исправил сообщение

vmag, всё что вы предлагаете просто и работает! это самое нужное сочетание. И знания ваши достойные. Вы практик, а не теоретик

\\\\interskа вы могли бы ещё помочь с переключением языка?Код не нужен. У контролов текстбокс и комбобокс есть свойство "язык клавиатуры" ( KeyboardLanguage ). Выстави там нужный тебе язык ввода. а то я не знаю )))) у меня на формах от 10 до 30 контролов - сам выделяй их все и потом в ручную указывай свойство языка, а если учесть что свою базу постоянно дорабатываю и добавляю или удаляю поля то ... спасибо vmag

vmag, этот код работает нестабильно (




вот что нашел в интернете на другом форуме (может как-то можно использовать эту информацию). Речь идет о каком- то состоянии стабильном или нестабильном...поэтому иногда numlock то включается, то не включается

=================================================
И все-таки это возможно.

Коротко и с готовым примером (файл прилагается).

Перед
Код



надо выполнить
Код



и NumLock меняться не будет.

В листе:
Код




В модуле книги:
Код




Теперь рассуждения что, и как работает.

Посмотрев по предложенным ссылкам и многим другим источникам, убедился- все это шляпа. И она не работает.
Я не то что не гуру, использую VBA около месяца. Потому, все что ниже (и выше, не счет "шляпы" ;) может не соответствовать истине.
Кроме того, что бы придти к этому способу я сознательно подменил стандартные понятия своими, заведомо не верными, но работающими в данном контексте.

И так.
Первое понятие: команда {NUMLOCK} не посылает сигнал "нажать NumLock", а закрепляет NumLock, если он "изменчивый".

"Изменчивый" - это когда он меняет свое состояние, когда не должен, например при команде %{DOWN} которая по идее должна только сымитировать Alt+Down.

Экспериментальным путем выяснил, что NumLock имеет "стабильное" состояние и "изменчивое". Не путать с "включен" и "выключен", в любом из них он может быть как "изменчивым" так и "стабильным".

Второе понятие: строчки
GetKeyboardState keystat(0)
state = keystat(vbKeyNumlock)
определяют не текущее состояние NumLock, а его текущую стабильность. Если state = 0, то NumLock стабилен, иначе изменчив.

Теперь все просто.
Если NumLock стабилен, ничего не делаем, просто посылаем команду %{DOWN}.
Если NumLock изменчивый, посылаем команду стабилизации (закрепления) {NUMLOCK}, и после уже спокойно пишем %{DOWN}, зная, что NumLock не изменится.

Конечно понятия "стабильный" и "изменчивый" надуманы но тут они отлично подходят.

Несколько фактов из наблюдений.
В стабильном состоянии следущие команды не меняют NumLock
%{DOWN}
{NUMLOCK} {NUMLOCK} (т.е. два раз подряд послать нажатие NumLock)

В изменчивом состоянии те же команды его меняют регулярно (при каждой команде NumLock 1 раз меняется) оставляя его изменчивым.
При этом команда
{NUMLOCK} (т.е. один раз послать нажатие NumLock)
работает так (допустим сейчас стабильное состояние, и он включен (лампочка горит)):
1. {NUMLOCK} - NumLock изменился (погас), состояние стало изменчивым
2. {NUMLOCK} - NumLock не изменился (не горит), состояние стало стабильным
3. {NUMLOCK} - NumLock изменился (загорелся), состояние стало изменчивым
4. {NUMLOCK} - NumLock не изменился (горит), состояние стало стабильным
...... и далее по кругу


Еще немного мелочей.
Во многих гайдах пишут подключить библиотеку для работы GetKeyboardState keystat(0), а именно:
Declare PtrSafe Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
PtrSafe - там отсутствует, что вызывает ошибку, т.к. сейчас почти у всех Windows 64 bit, а не 32. Для совместимости и надо добавить.

Так же в этом объявлении для совместимости с 64-битной версией, рекомендуют использовать тип LongLong вместо Long. Возможно это где-то оправдано. У меня работали оба варианта, но у одного из тех, кому я делал вылезла ошибка, что у него нет такого типа данных (LongLong). По этому пишу просо Long.
Что у меня, что у него Windows 7 64bit, Excel 2010.

Вот еще из MSDN, из пояснений к функции GetKeyState (так и не понял, зачем использовать GetKeyboardState, если мы хотим узнать только одну кнопку), какие она возвращает состояния (она возвращает Integer):
0 if the key is neither down nor toggled,
-127 if the key is down but not toggled,
1 if the key is toggled but up, and
-128 if the key is both toggled and down.
где toggled - это якобы когда лампочка горит.
GetKeyboardState возвращает 129 вместо -127, 128 вместо -128
Соответственно, можно плясать от этих значений сразу, не пользуя UDF?

А вот то, что SendKeys "{NumLock}" не переключает сразу состояние, а бегает по этому кругу

vmag_, продолжу тестирование (может и правда с компом что-то). У вас код на открытие формы, а я из него сделал функцию (разве это меняет работу кода?) и вешаю эту функцию на запуск Access и на Activate форм (на включение сделал, так как numlock гуляет - может выключиться из включенного состояния и чтобы при переходе к этой форме numlock включался)

vmag_, сделал на открытие формы, загружаемой при запуске базы - numlock может не включиться иногда ( Закономерность не выявлена