TopPicLogo TopPicText

Нажатие кнопок в формах по "горячим" клавишам (F1 - F12)

Данная функция нажимает, указанную в аргументе, кнопку в любой форме, по горячей клавише прописанной в макросе "AutoKeys"
Допустим "горячей" клавишей является "F3", а объект "Кнопка" в формах так-же имеет имя "F3".

Тогда  в макросе "AutoKeys"  будет :
     Имя макроса: {F3}
     Макрокоманда: "ЗапускПрограммы"
     ...с Именем функции: PressFormButton("F3")
     
     Теперь помещаем функцию в любой модуль проекта, и все, какая бы форма не была активной, если в ней есть кнопка с названием "F3" - она будет нажата (читай - будет выполнен код "под кнопкой") при нажатии клавиши "F3" на клавиатуре - а если такой кнопки в АКТИВНОЙ форме нет - то ничего и не произойдет.

Public Function PressFormButton(MyKey As String)
Dim I As Integer
    I = Forms.count - 1
On Error GoTo PressFormButtonErr
    Forms(I).Controls(MyKey).SetFocus
    SendKeys "{Enter}"
    Exit Function

PressFormButtonErr:
    Err = 0
End Function 


Назад ToTop
L.E. 11.12.2016
Рейтинг@Mail.ru